Metrics for Destination given bearing on a great circle

analyze1.2s (6.8%)

Memory

35.2MiB live, 1 341.6MiB allocated

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)

sample2.9s (16.7%)

Memory

98.8MiB live, 2 492.7MiB allocated

Samples

2.4s

8 256×

valid

Precisions

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

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

ival-cos: 607.0ms (29.2% of total)

ival-mult: 370.0ms (17.8% of total)

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

ival-add: 92.0ms (4.4% of total)

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

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

ival-true: 7.0ms (0.3% of total)

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

Bogosity

preprocess264.0ms (1.5%)

Memory

2.3MiB live, 115.4MiB allocated

Algorithm

1×	egg-herbie

Rules

1 618×	`distribute-rgt-in`
1 602×	`distribute-lft-in`
1 294×	`distribute-lft-neg-in`
1 050×	`sub-neg`
794×	`neg-mul-1`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	179	677
1	399	672
2	699	670
3	1226	668
4	2722	668
5	4034	668
6	4664	668
7	5393	668
8	5778	668
9	5943	668
10	6050	668
11	6182	668
12	6432	668
13	6965	668
14	7098	668
15	7124	668
16	7124	668
17	7124	668
0	22	33
0	40	33
1	57	33
2	82	33
3	97	33
4	113	33
5	141	33
6	189	33
7	238	33
8	321	33
9	360	33
10	394	33
11	446	33
12	537	33
13	671	33
14	822	33
15	1117	33
16	1189	33
17	1208	33
18	1210	33
19	1213	33
20	1215	33
0	1215	32

Stop Event

1×	iter limit
1×	saturated
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 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (sin.f64 (asin.f64 (fma.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))

Symmetry

(abs phi2)

explain496.0ms (2.8%)

Memory

-29.8MiB live, 505.5MiB allocated

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
5	1	(-0.0004062036351138177 -1.1552184622807642e+80 3.526559972873622e-198 1.2676715018731088e-56 8.828924048096228e+192)	1	(-1.4214668684909078e+144 -1.066154092596211e+223 2.96098270016406e+202 1.1315336907628955e+146 -4.6871832696263583e-181)	`(-.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	0	-	1	(-5.082884226244585e+45 5.28706103217042e+34 1.3965167400806201e+293 -2.4635796985358172e-155 1.24997874745618e-168)	`(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	0	-	0	-	`(+.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	-	`(*.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	1	1
`+.f64`	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`	cancellation	1	0

Confusion

	Predicted +	Predicted -
+	1	0
-	1	254

Precision

0.5

Recall

1.0

Confusion?

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

Precision?

0.3333333333333333

Recall?

1.0

Freqs

test

number	freq
0	254
1	2

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

185.0ms

512×

valid

Compiler

Compiled 474 to 96 computations (79.7% saved)

Precisions

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

ival-sin: 58.0ms (41.6% of total)

ival-cos: 31.0ms (22.2% of total)

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

ival-asin: 10.0ms (7.2% of total)

ival-add: 5.0ms (3.6% of total)

ival-atan2: 5.0ms (3.6% of total)

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

ival-true: 1.0ms (0.7% of total)

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

eval0.0ms (0%)

Memory: 0.4MiB live, 0.4MiB allocated
Compiler: Compiled 5 to 5 computations (0% saved)

prune1.0ms (0%)

Memory

1.6MiB live, 1.6MiB allocated

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 38 to 23 computations (39.5% saved)

simplify84.0ms (0.5%)

Memory

6.7MiB live, 44.8MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 4 expressions of interest:

New	Metric	Score	Program
✓	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	128	(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))

Rules

640×	`lower-fma.f64`
640×	`lower-fma.f32`
496×	`lower-*.f32`
484×	`lower-*.f64`
244×	`associate-r`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	22	197
0	40	197
1	57	197
2	82	197
3	97	197
4	113	197
5	141	197
6	189	197
7	238	197
8	321	197
9	360	197
10	394	197
11	446	197
12	537	197
13	671	197
14	822	197
15	1117	197
16	1189	197
17	1208	197
18	1210	197
19	1213	197
20	1215	197
0	1215	190

Stop Event

1×	iter limit
1×	saturated
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 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (sin.f64 (asin.f64 (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (sin.f64 (asin.f64 (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (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 (sin.f64 (asin.f64 (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (neg.f64 (sin.f64 phi1)) (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 phi1) (sin.f64 (asin.f64 (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(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 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(*.f64 (sin.f64 delta) (cos.f64 phi1))
(cos.f64 theta)

localize121.0ms (0.7%)

Memory

15.1MiB live, 93.3MiB allocated

Localize:

Found 4 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	99.6%	(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
✓	accuracy	99.6%	(.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	99.2%	(-.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

79.0ms

256×

valid

Compiler

Compiled 199 to 25 computations (87.4% saved)

Precisions

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

ival-cos: 27.0ms (41.2% of total)

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

ival-mult: 9.0ms (13.7% of total)

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

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

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

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

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

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

series60.0ms (0.3%)

Memory

-4.5MiB live, 36.8MiB allocated

Counts

8 → 288

Calls

Call 1

Inputs
#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())
#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())
#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())
#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())
#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())
#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())

Outputs
#s(alt (* (cos theta) (sin delta)) (taylor 0 phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))) (taylor 0 phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta))) (taylor 0 phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta))) (taylor 0 phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf phi1) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (sin phi1) (taylor 0 delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (sin phi1) (* delta (* (cos phi1) (cos theta)))) (taylor 0 delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta))))) (taylor 0 delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta))))) (taylor 0 delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf delta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))))))))) (taylor 0 theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor inf theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (taylor -inf theta) (#s(alt (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (patch (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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))))))))) (patch (+.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))))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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)))))))) (patch (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)))))))) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 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)) (taylor 0 delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.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))))))) (patch (-.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))))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (* (cos theta) (sin delta))) (taylor 0 phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))) (taylor 0 phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (taylor 0 phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* 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)))) (taylor 0 phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (pow (sin phi1) 2) (taylor 0 delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 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)) (taylor 0 delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))))))))) (taylor 0 theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor 0 theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (patch (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* theta (sin delta)) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (sin theta)) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())

Calls

72 calls:

Time	Variable		Point	Expression
23.0ms	phi1	@	0	(+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))
3.0ms	phi1	@	-inf	(- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))
2.0ms	phi1	@	inf	(+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))
2.0ms	theta	@	-inf	(+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))
2.0ms	delta	@	inf	(+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))

simplify652.0ms (3.7%)

Memory

-0.4MiB live, 546.6MiB allocated

Algorithm

1×	egg-herbie

Rules

16 384×	`lower-fma.f64`
16 384×	`lower-fma.f32`
6 000×	`lower-*.f64`
6 000×	`lower-*.f32`
4 264×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	281	5807
1	976	5684
2	3425	5625
3	5997	5582
0	8048	5302

Stop Event

1×	iter limit
1×	node limit

Counts

288 → 286

Calls

Call 1

Inputs
(* (cos theta) (sin delta))
(+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))
(+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))
(+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(sin phi1)
(+ (sin phi1) (* delta (* (cos phi1) (cos theta))))
(+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))
(+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* (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))))))))
(+ (* (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)))))))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* 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))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* 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))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+ (* (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))))))))
(+ (* (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)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))

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

rewrite440.0ms (2.5%)

Memory

-39.7MiB live, 519.8MiB allocated

Algorithm

1×	batch-egg-rewrite

Rules

6 986×	`lower-fma.f64`
6 986×	`lower-fma.f32`
5 942×	`lower-*.f32`
5 930×	`lower-*.f64`
3 900×	`lower-/.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	22	147
0	40	139
1	120	139
2	846	139
0	8744	133

Stop Event

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

Counts

8 → 340

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 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(+.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(+.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))))
(+.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(+.f64 (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (neg.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) (.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))))
(cos.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(-.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(-.f64 (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(-.f64 (.f64 (sin.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64))))) #s(literal 0 binary64)) (.f64 (cos.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64))))) #s(literal 1 binary64)))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(sin.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))
(fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))
(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 (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 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 phi1 delta))) #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))
(fma.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(fma.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (neg.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))))
(fma.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(fma.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (neg.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))))
(fma.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (neg.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (neg.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))))
(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) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(fma.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(fma.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))))
(fma.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(fma.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (neg.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))))
(fma.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(fma.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (neg.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))))
(fma.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 phi1 delta)))) #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))
(fma.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(fma.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (neg.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))))
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.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)))
(neg.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))) (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (+.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))) (.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 9 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 9 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 6 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 6 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 6 binary64))) #s(literal 1 binary64)) (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 6 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 4 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 4 binary64))) #s(literal 1 binary64)) (.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))))) (neg.f64 (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))) (neg.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))) (.f64 #s(literal 0 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (+.f64 (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal -1 binary64))
(.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))))
(.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)
(+.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (neg.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)) (/.f64 (.f64 lambda1 lambda1) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)))
(fma.f64 (.f64 lambda1 lambda1) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (neg.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))))
(neg.f64 (/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1)))))
(neg.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))))
(neg.f64 (/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64)))) (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))))
(neg.f64 (/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 (.f64 (fma.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (.f64 lambda1 (.f64 lambda1 lambda1))) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 9 binary64))) #s(literal 1 binary64)) (.f64 (-.f64 (fma.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 6 binary64))) (pow.f64 (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (.f64 lambda1 (.f64 lambda1 lambda1))) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 6 binary64))) #s(literal 1 binary64)) (.f64 (-.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (.f64 lambda1 (.f64 lambda1 lambda1))) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 6 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 (fma.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) lambda1 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 4 binary64))) (pow.f64 (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 4 binary64))) #s(literal 1 binary64)) (.f64 (fma.f64 lambda1 lambda1 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (neg.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (fma.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))))))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))) (.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))) (+.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))))
(pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
(.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))))
(.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))))
(.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))) #s(literal -2 binary64))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(.f64 (.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 1/2 binary64))
(+.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))
(+.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))
(+.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (neg.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))))))
(+.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (neg.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))
(+.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
(+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (fma.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))) (+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(+.f64 (+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))
(+.f64 (+.f64 (cos.f64 delta) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+.f64 (+.f64 (cos.f64 delta) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))
(+.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64))) (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(-.f64 #s(literal 0 binary64) (-.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) (cos.f64 delta)))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))
(-.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (neg.f64 (sin.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) #s(literal -1/2 binary64) (cos.f64 delta))
(fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (neg.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (neg.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))
(fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
(fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta)) (fma.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(fma.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))) #s(literal 1/2 binary64) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (.f64 (cos.f64 delta) (neg.f64 (sin.f64 phi1))) (sin.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 delta) (neg.f64 (sin.f64 phi1))) (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(fma.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 delta))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal -1 binary64)) (sin.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
(fma.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal -1 binary64)) (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal -1 binary64)) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 theta) (+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 delta) (+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal -1 binary64)) (sin.f64 phi1) (+.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi1)) (cos.f64 delta) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi1)) (cos.f64 delta) (fma.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 phi1 delta)))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 phi1 delta)))) #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(neg.f64 (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))))))
(neg.f64 (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (neg.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))
(neg.f64 (/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))))
(neg.f64 (/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (-.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (-.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (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 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (-.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))
(/.f64 (.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 9 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 6 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))))
(/.f64 (.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 6 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))))
(/.f64 (.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 6 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 4 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 4 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))
(/.f64 (.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 4 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 4 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (fma.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))
(/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))))) (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))))))
(/.f64 (-.f64 (.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))) (.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))) (+.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (-.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta)))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))
(.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))))))))
(.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta)))))
(+.f64 (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)) (neg.f64 (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(-.f64 (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 phi1 delta)))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 (.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 phi1 delta)))) #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 theta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(neg.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))
(/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) phi1)) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) phi1)) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (sin.f64 phi1) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))) (sin.f64 phi1))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(/.f64 (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))) (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(/.f64 (.f64 (sin.f64 phi1) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))) (sin.f64 phi1)) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) phi1)) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(/.f64 (neg.f64 (.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))) (sin.f64 phi1))) (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)) (fma.f64 (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))) (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))) (-.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 1/2 binary64))))
(pow.f64 (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal -1 binary64))
(.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (sin.f64 phi1))
(.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))) #s(literal 1/2 binary64))
(.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) phi1)) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))) #s(literal 1/2 binary64))
(.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))))) #s(literal -1/2 binary64))
(.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(.f64 (.f64 (sin.f64 phi1) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(.f64 (.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (neg.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64)))) (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(+.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64)))) (*.f64 (neg.f64 (PI.f64)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(-.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 1/8 binary64)) (fma.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (/.f64 (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (fma.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))
(-.f64 (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (/.f64 (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(fma.f64 #s(literal 1 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(fma.f64 (neg.f64 (PI.f64)) #s(literal -1/2 binary64) (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 1/8 binary64)) (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64)) (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 1/8 binary64)) (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (fma.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64)) (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 1/8 binary64)) (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64)) (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/.f64 (fma.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64) (-.f64 (.f64 (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))))
(/.f64 (-.f64 (pow.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64)))) #s(literal 3 binary64)) (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 1/8 binary64))) (fma.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64)))) (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64)))) (fma.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64) (.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64)) (.f64 (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/.f64 (-.f64 (.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64)))) (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64))))) (.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64))) (+.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 2 binary64) (PI.f64)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(.f64 (-.f64 (.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 1/8 binary64)) (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64) (.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))
(.f64 (-.f64 (.f64 (.f64 (PI.f64) (PI.f64)) #s(literal 1/4 binary64)) (pow.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64)) (neg.f64 (.f64 (cos.f64 (+.f64 delta theta)) #s(literal 1/2 binary64))))
(-.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 delta theta)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (*.f64 (cos.f64 (+.f64 delta theta)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (+.f64 delta theta)) #s(literal 1/2 binary64))))
(neg.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal -2 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64)))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (+.f64 delta theta)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64)) (fma.f64 (.f64 (cos.f64 (+.f64 delta theta)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 delta theta)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 delta theta)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (+.f64 delta theta)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 delta theta)) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 delta theta)) #s(literal 1/2 binary64))))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(.f64 #s(literal 1 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1/2 binary64))

eval137.0ms (0.8%)

Memory: 16.3MiB live, 130.6MiB allocated
Compiler: Compiled 31 813 to 2 298 computations (92.8% saved)

prune130.0ms (0.7%)

Memory

0.9MiB live, 194.9MiB allocated

Pruning

16 alts after pruning (16 fresh and 0 done)

	Pruned	Kept	Total
New	610	16	626
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	611	16	627

Accuracy

100.0%

Counts

627 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.7%	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
	99.9%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)
▶	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
▶	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))))
	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (sin.f64 phi1)))))
	88.5%	(+.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)))))))))
	79.4%	(+.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)))))) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (.f64 delta (sin.f64 phi1)) (.f64 (fma.f64 delta (.f64 delta #s(literal -1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
	92.4%	(+.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))))))
	94.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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))))))))
	83.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 (cos.f64 theta) (.f64 (sin.f64 delta) phi1))))))
	80.4%	(+.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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	80.0%	(+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
▶	88.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))))))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (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)))))))))
▶	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))

Compiler

Compiled 1 064 to 658 computations (38.2% saved)

simplify516.0ms (2.9%)

Memory

19.5MiB live, 557.5MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))))
✓	cost-diff	128	(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))
✓	cost-diff	6464	(-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))
✓	cost-diff	0	(sin.f64 delta)
✓	cost-diff	0	(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))
✓	cost-diff	0	(atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
✓	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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
✓	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) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))
✓	cost-diff	0	(+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
✓	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) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (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) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
✓	cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
✓	cost-diff	128	(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))
✓	cost-diff	6592	(-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))

Rules

15 804×	`lower-fma.f32`
15 798×	`lower-fma.f64`
3 758×	`lower-*.f32`
3 728×	`lower-*.f64`
2 172×	`lower-+.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	67	875
0	109	865
1	190	865
2	352	864
3	949	850
4	2219	850
5	3467	850
6	4413	850
7	5172	850
8	6086	850
9	6579	850
10	6818	850
11	6942	850
12	6970	850
13	7380	850
14	7832	850
0	8053	839

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

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

localize474.0ms (2.7%)

Memory

-2.7MiB live, 744.9MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	99.6%	(.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
✓	accuracy	99.2%	(-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))
✓	accuracy	77.7%	(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))
✓	accuracy	99.6%	(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))
✓	accuracy	99.6%	(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
✓	accuracy	99.2%	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
✓	accuracy	31.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
✓	accuracy	99.8%	(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	99.6%	(.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))
✓	accuracy	54.5%	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))
✓	accuracy	99.8%	(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)))
✓	accuracy	99.8%	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	54.0%	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	99.6%	(.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
✓	accuracy	99.0%	(-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
✓	accuracy	77.7%	(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))

Samples

195.0ms	111×	1	valid
142.0ms	145×	0	valid

Compiler

Compiled 807 to 57 computations (92.9% saved)

Precisions

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

ival-cos: 64.0ms (25.4% of total)

ival-mult: 54.0ms (21.5% of total)

adjust: 38.0ms (15.1% of total)

ival-atan2: 33.0ms (13.1% of total)

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

ival-sub: 13.0ms (5.2% of total)

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

ival-asin: 10.0ms (4% of total)

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

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

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

exact: 0.0ms (0% of total)

series105.0ms (0.6%)

Memory

-3.4MiB live, 207.3MiB allocated

Counts

24 → 840

Calls

Call 1

Inputs
#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())
#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())
#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())
#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())
#s(alt (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))) (patch (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))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())
#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())
#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())
#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())
#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())
#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())
#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())
#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())
#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())
#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())
#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())
#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())
#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())
#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())

Outputs
#s(alt (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* 1/2 (cos (* 2 phi1))))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* (pow phi1 2) (cos delta)))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta)))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta)))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2)))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3)))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3)))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (patch (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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)))) (patch (+.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)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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))) (patch (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))) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (sin delta)) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (sin theta)) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt delta (taylor 0 delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (* delta (+ 1 (* -1/6 (pow delta 2)))) (taylor 0 delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6)))) (taylor 0 delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6)))) (taylor 0 delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor -inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor -inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor -inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor -inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1))))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1))))))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1))))))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (* (cos theta) (sin delta))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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)))))))))))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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)))))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin phi1))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ 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)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 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)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (taylor 0 phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta)))))) (taylor 0 phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1))))) (taylor 0 phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (pow (cos phi1) 2) (taylor 0 delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (taylor inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (taylor -inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (taylor 0 theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))) (taylor 0 theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1))))))) (taylor 0 theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1)))))))))) (taylor 0 theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (sin phi1)) (taylor 0 theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (sin phi1)) (* 1/2 (* (pow theta 2) (sin phi1)))) (taylor 0 theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (sin phi1)) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (sin phi1))) (* 1/2 (sin phi1))))) (taylor 0 theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (sin phi1)) (* (pow theta 2) (+ (* 1/2 (sin phi1)) (* (pow theta 2) (+ (* -1/24 (sin phi1)) (* 1/720 (* (pow theta 2) (sin phi1)))))))) (taylor 0 theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor inf theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor inf theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor inf theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor inf theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (cos theta))) (taylor 0 phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* -1 (cos theta)) (* 1/6 (* (pow phi1 2) (cos theta))))) (taylor 0 phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* -1 (cos theta)) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (cos theta))) (* 1/6 (cos theta)))))) (taylor 0 phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* -1 (cos theta)) (* (pow phi1 2) (+ (* 1/6 (cos theta)) (* (pow phi1 2) (+ (* -1/120 (cos theta)) (* 1/5040 (* (pow phi1 2) (cos theta))))))))) (taylor 0 phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (cos theta) (sin phi1))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (patch (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 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)) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (patch (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (* (cos theta) (sin delta))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* 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)))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (pow (sin phi1) 2) (taylor 0 delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 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)) (taylor 0 delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #<representation binary64>) () ())) ())

Calls

210 calls:

Time	Variable		Point	Expression
9.0ms	phi1	@	-inf	(* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1)))
5.0ms	theta	@	-inf	(atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))
1.0ms	theta	@	inf	(- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1))))
1.0ms	delta	@	0	(* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1))
1.0ms	delta	@	inf	(- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)))

simplify568.0ms (3.2%)

Memory

9.9MiB live, 772.9MiB allocated

Algorithm

1×	egg-herbie

Rules

13 560×	`lower-fma.f64`
13 560×	`lower-fma.f32`
7 950×	`lower-*.f64`
7 950×	`lower-*.f32`
3 448×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	499	20847
1	1725	20374
2	6027	20231
0	8242	19249

Stop Event

1×	iter limit
1×	node limit

Counts

840 → 829

Calls

Call 1

Inputs
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
delta
(* delta (+ 1 (* -1/6 (pow delta 2))))
(* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))
(* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (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) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (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) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(* 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)))))))))))
(* 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))))))))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(* 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)))))))))
(* 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))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+ (* (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))))))))
(+ (* (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)))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
1
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(pow (cos phi1) 2)
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* -1 (sin phi1))
(+ (* -1 (sin phi1)) (* 1/2 (* (pow theta 2) (sin phi1))))
(+ (* -1 (sin phi1)) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (sin phi1))) (* 1/2 (sin phi1)))))
(+ (* -1 (sin phi1)) (* (pow theta 2) (+ (* 1/2 (sin phi1)) (* (pow theta 2) (+ (* -1/24 (sin phi1)) (* 1/720 (* (pow theta 2) (sin phi1))))))))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* phi1 (cos theta)))
(* phi1 (+ (* -1 (cos theta)) (* 1/6 (* (pow phi1 2) (cos theta)))))
(* phi1 (+ (* -1 (cos theta)) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (cos theta))) (* 1/6 (cos theta))))))
(* phi1 (+ (* -1 (cos theta)) (* (pow phi1 2) (+ (* 1/6 (cos theta)) (* (pow phi1 2) (+ (* -1/120 (cos theta)) (* 1/5040 (* (pow phi1 2) (cos theta)))))))))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(* -1 (* (cos theta) (sin phi1)))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* 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))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+ (* (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))))))))
(+ (* (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)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* 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))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))

Outputs
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* 1/2 (cos (* 2 phi1)))))
(fma.f64 (.f64 delta delta) (fma.f64 #s(literal 1/2 binary64) (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)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(fma.f64 (.f64 delta delta) (fma.f64 delta (.f64 delta (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal -1/24 binary64) #s(literal 1/24 binary64))) (fma.f64 #s(literal 1/2 binary64) (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))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (fma.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal -1/720 binary64) #s(literal 1/720 binary64)) (.f64 delta (neg.f64 delta)) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal -1/24 binary64) #s(literal 1/24 binary64))) (fma.f64 #s(literal 1/2 binary64) (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))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(*.f64 (fma.f64 phi1 (neg.f64 phi1) #s(literal 1 binary64)) (cos.f64 delta))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))
(fma.f64 (.f64 phi1 phi1) (.f64 (cos.f64 delta) (fma.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64) #s(literal -1 binary64))) (cos.f64 delta))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))
(fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (.f64 (cos.f64 delta) (fma.f64 (.f64 phi1 phi1) #s(literal -2/45 binary64) #s(literal 1/3 binary64))) (neg.f64 (cos.f64 delta))) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(.f64 phi1 (.f64 phi1 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/3 binary64) #s(literal 1 binary64))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(.f64 (.f64 phi1 phi1) (fma.f64 phi1 (.f64 phi1 (fma.f64 phi1 (.f64 phi1 #s(literal 2/45 binary64)) #s(literal -1/3 binary64))) #s(literal 1 binary64)))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 phi1 (.f64 phi1 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/315 binary64) #s(literal 2/45 binary64))) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1) lambda1)
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
lambda1
(* -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)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)) (neg.f64 lambda1))
(* -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)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)) (neg.f64 lambda1))
(* -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)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 (.f64 theta theta) #s(literal 1/120 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)))))))))
(.f64 theta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 theta theta))) (fma.f64 (.f64 theta theta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 delta (.f64 delta (.f64 delta #s(literal -1/6 binary64))) delta))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) #s(literal 1/120 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)))))))))
(.f64 delta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ (* (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))))))))
(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 phi1 phi1) (.f64 (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1) #s(literal 1/24 binary64)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 (*.f64 theta theta) #s(literal 1/120 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))))))))
(.f64 theta (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 (.f64 theta theta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (.f64 (.f64 theta theta) (.f64 theta theta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 delta (.f64 (fma.f64 delta (*.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta)))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (.f64 (sin.f64 theta) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (*.f64 delta delta) #s(literal 1/120 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))))))))
(.f64 delta (fma.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
lambda1
(* -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)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)) (neg.f64 lambda1))
(* -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)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)) (neg.f64 lambda1))
(* -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)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
lambda1
(* -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)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)) (neg.f64 lambda1))
(* -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)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)) (neg.f64 lambda1))
(* -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)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1)) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 delta (.f64 delta (.f64 delta #s(literal -1/6 binary64))) delta))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) #s(literal 1/120 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)))))))))
(.f64 delta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ (* (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))))))))
(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 phi1 phi1) (.f64 (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1) #s(literal 1/24 binary64)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 (.f64 theta theta) #s(literal 1/120 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)))))))))
(.f64 theta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 theta theta))) (fma.f64 (.f64 theta theta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
delta
(* delta (+ 1 (* -1/6 (pow delta 2))))
(fma.f64 delta (.f64 delta (.f64 delta #s(literal -1/6 binary64))) delta)
(* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))
(fma.f64 (fma.f64 delta (.f64 delta #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) (.f64 delta (*.f64 delta delta)) delta)
(* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))
(fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) delta) delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 delta (cos.f64 phi1))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal 1/2 binary64) (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 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(fma.f64 delta (fma.f64 delta (fma.f64 delta (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1/6 binary64)) (fma.f64 #s(literal 1/2 binary64) (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 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (neg.f64 (fma.f64 phi1 (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64) (neg.f64 (cos.f64 delta))) (*.f64 (sin.f64 delta) (neg.f64 (cos.f64 theta)))) (cos.f64 delta))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (cos.f64 delta)) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (+ (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) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 (.f64 theta theta) #s(literal -1/24 binary64) #s(literal 1/2 binary64))) (cos.f64 delta)) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (+ (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) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (cos.f64 delta)) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1) lambda1)
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(* 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)))))))))))
(.f64 phi1 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2/15 binary64) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (.f64 (sin.f64 delta) (cos.f64 theta))))
(* 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))))))))))))))))
(.f64 phi1 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64) (.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -4/315 binary64)))) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta (cos.f64 phi1)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 delta (.f64 delta (*.f64 delta #s(literal -1/6 binary64))) delta))
(* 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)))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (*.f64 delta delta) #s(literal 1/120 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))))))))))
(.f64 delta (fma.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (.f64 delta delta) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 delta (.f64 delta (cos.f64 phi1)))) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* (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))))))))
(.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/24 binary64) (.f64 theta theta)))))
(+ (* (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)))))))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 theta theta) (.f64 (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 #s(literal -1/720 binary64) (*.f64 theta theta) #s(literal 1/24 binary64)))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(fma.f64 delta (fma.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)) (neg.f64 (cos.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 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))
(fma.f64 delta (fma.f64 delta (fma.f64 #s(literal 1/6 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 delta (cos.f64 phi1))) (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)) (neg.f64 (cos.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (neg.f64 (fma.f64 phi1 (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64) (neg.f64 (cos.f64 delta))) (*.f64 (sin.f64 delta) (neg.f64 (cos.f64 theta)))) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (cos.f64 delta))
(- (+ (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)))))
(-.f64 (fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 (.f64 theta theta) #s(literal -1/24 binary64) #s(literal 1/2 binary64))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(- (+ (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)))))
(fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(fma.f64 delta (fma.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)) (neg.f64 (cos.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 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))
(fma.f64 delta (fma.f64 delta (fma.f64 #s(literal 1/6 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 delta (cos.f64 phi1))) (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)) (neg.f64 (cos.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (neg.f64 (fma.f64 phi1 (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64) (neg.f64 (cos.f64 delta))) (*.f64 (sin.f64 delta) (neg.f64 (cos.f64 theta)))) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (cos.f64 delta))
(- (+ (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)))))
(-.f64 (fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 (.f64 theta theta) #s(literal -1/24 binary64) #s(literal 1/2 binary64))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(- (+ (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)))))
(fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
1
#s(literal 1 binary64)
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(fma.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 (.f64 phi1 (.f64 delta (cos.f64 theta))) #s(literal 2/3 binary64) #s(literal -1 binary64))) (.f64 delta (cos.f64 theta))) #s(literal 1 binary64))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(neg.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta (cos.f64 phi1))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(neg.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta (cos.f64 phi1))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (+.f64 #s(literal -1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 theta theta)))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (fma.f64 (*.f64 theta theta) #s(literal -1/24 binary64) #s(literal 1/2 binary64)))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(+.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (+.f64 #s(literal -1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 theta theta))))) (.f64 (.f64 theta theta) (.f64 (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1)))) (fma.f64 #s(literal 1/720 binary64) (*.f64 theta theta) #s(literal -1/24 binary64)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* -1 (sin phi1))
(neg.f64 (sin.f64 phi1))
(+ (* -1 (sin phi1)) (* 1/2 (* (pow theta 2) (sin phi1))))
(.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 theta theta) #s(literal -1 binary64)))
(+ (* -1 (sin phi1)) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (sin phi1))) (* 1/2 (sin phi1)))))
(fma.f64 (.f64 theta theta) (.f64 (sin.f64 phi1) (fma.f64 (*.f64 theta theta) #s(literal -1/24 binary64) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi1)))
(+ (* -1 (sin phi1)) (* (pow theta 2) (+ (* 1/2 (sin phi1)) (* (pow theta 2) (+ (* -1/24 (sin phi1)) (* 1/720 (* (pow theta 2) (sin phi1))))))))
(fma.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 theta theta) #s(literal -1 binary64)) (.f64 (.f64 theta theta) (.f64 (.f64 theta (.f64 theta (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (*.f64 theta theta) #s(literal -1/24 binary64)))))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* phi1 (cos theta)))
(neg.f64 (*.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* -1 (cos theta)) (* 1/6 (* (pow phi1 2) (cos theta)))))
(.f64 (.f64 phi1 (cos.f64 theta)) (fma.f64 (*.f64 phi1 phi1) #s(literal 1/6 binary64) #s(literal -1 binary64)))
(* phi1 (+ (* -1 (cos theta)) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (cos theta))) (* 1/6 (cos theta))))))
(.f64 phi1 (fma.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (fma.f64 (.f64 phi1 phi1) #s(literal -1/120 binary64) #s(literal 1/6 binary64))) (neg.f64 (cos.f64 theta))))
(* phi1 (+ (* -1 (cos theta)) (* (pow phi1 2) (+ (* 1/6 (cos theta)) (* (pow phi1 2) (+ (* -1/120 (cos theta)) (* 1/5040 (* (pow phi1 2) (cos theta)))))))))
(.f64 phi1 (fma.f64 (cos.f64 theta) (fma.f64 (.f64 phi1 phi1) #s(literal 1/6 binary64) #s(literal -1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 (.f64 phi1 (.f64 phi1 (cos.f64 theta))) (fma.f64 (.f64 phi1 phi1) #s(literal 1/5040 binary64) #s(literal -1/120 binary64))))))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(* -1 (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(fma.f64 delta (fma.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)) (neg.f64 (cos.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 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))
(fma.f64 delta (fma.f64 delta (fma.f64 #s(literal 1/6 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 delta (cos.f64 phi1))) (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)) (neg.f64 (cos.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (neg.f64 (fma.f64 phi1 (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64) (neg.f64 (cos.f64 delta))) (*.f64 (sin.f64 delta) (neg.f64 (cos.f64 theta)))) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (cos.f64 delta))
(- (+ (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)))))
(-.f64 (fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 (.f64 theta theta) #s(literal -1/24 binary64) #s(literal 1/2 binary64))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(- (+ (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)))))
(fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (cos.f64 delta)) (.f64 (sin.f64 delta) (cos.f64 theta))))
(* 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))))
(.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (cos.f64 delta) #s(literal -1/3 binary64)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (cos.f64 delta)) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))
(+ (* (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))))))))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/24 binary64) (.f64 theta theta))))))
(+ (* (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)))))))))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 theta theta) (.f64 (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 #s(literal -1/720 binary64) (*.f64 theta theta) #s(literal 1/24 binary64))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(.f64 (sin.f64 phi1) (fma.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(fma.f64 delta (.f64 (sin.f64 phi1) (fma.f64 (.f64 delta #s(literal -1/2 binary64)) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 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))
(fma.f64 delta (fma.f64 delta (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))

rewrite376.0ms (2.1%)

Memory

13.7MiB live, 680.5MiB allocated

Algorithm

1×	batch-egg-rewrite

Rules

4 058×	`lower-*.f32`
4 028×	`lower-*.f64`
3 776×	`lower-/.f64`
3 776×	`lower-/.f32`
2 980×	`lower-fma.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	67	590
0	109	567
1	412	529
2	2764	529
0	8271	529

Stop Event

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

Counts

24 → 472

Calls

Call 1

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

Outputs
(+.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))))
(+.f64 (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))) (cos.f64 delta))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))))))
(fma.f64 (cos.f64 delta) (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 delta))
(fma.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 delta))
(fma.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 delta) (cos.f64 delta))
(fma.f64 (neg.f64 (cos.f64 delta)) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))))))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))) (.f64 (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (*.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (*.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)))))
(pow.f64 (/.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))))
(*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))
(.f64 (/.f64 (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (/.f64 (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (cos.f64 delta)))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))
(-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 2 binary64)))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) #s(literal 3 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1))))) (+.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1 binary64))) #s(literal 1/2 binary64)))
(-.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1)))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (+.f64 phi1 phi1))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))
(fma.f64 (neg.f64 (cos.f64 (+.f64 phi1 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1)))))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1))))))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1))))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1)))))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1)))))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1)))))))) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1)))))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1)))))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)))
(/.f64 (neg.f64 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1))))))))) (neg.f64 (neg.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi1)))) #s(literal -2 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (neg.f64 (sin.f64 phi1)) #s(literal 2 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1)))))))) #s(literal -1 binary64))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(*.f64 (neg.f64 (sin.f64 phi1)) (neg.f64 (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) phi1))))))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1)) (/.f64 (.f64 lambda1 lambda1) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (neg.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1)))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)) (/.f64 (.f64 lambda1 lambda1) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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)))) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (sin.f64 theta) (.f64 (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 (neg.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1) (*.f64 lambda1 lambda1)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (neg.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1) (*.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (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 (*.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 delta theta)))) #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 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))) #s(literal -2 binary64))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))))
(-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1)) (/.f64 (.f64 lambda1 lambda1) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (neg.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1)))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.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 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))
(/.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 delta theta)))) #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 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))) #s(literal -2 binary64))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(sin.f64 delta)
(+.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(+.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(+.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(-.f64 (cos.f64 delta) (-.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))
(-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(-.f64 (/.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))))
(fma.f64 (cos.f64 phi1) (neg.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (neg.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(fma.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))
(fma.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (sin.f64 phi1) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))
(fma.f64 (/.f64 (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (/.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))) (.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1)) (/.f64 (.f64 lambda1 lambda1) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (neg.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1)))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (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 theta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))
#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))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))
(+.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 delta (.f64 (*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))
(+.f64 (.f64 delta (.f64 (*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (pow.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (-.f64 (.f64 delta (.f64 (*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi1) (.f64 delta (.f64 (*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))
(fma.f64 (cos.f64 phi1) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (.f64 delta (cos.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta))) (cos.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (.f64 delta (cos.f64 theta)) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (.f64 delta (.f64 (*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi1) delta) (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))) delta (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 delta (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 6 binary64))) (+.f64 (pow.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))))
(/.f64 (.f64 (cos.f64 phi1) (+.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)))) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (*.f64 delta (cos.f64 theta))) #s(literal 2 binary64))))
(/.f64 (.f64 (cos.f64 phi1) (-.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta))) #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (*.f64 delta (cos.f64 theta))) (cos.f64 phi1)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (cos.f64 phi1)) (fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)))) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (*.f64 delta (cos.f64 theta))) #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta))) #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (*.f64 delta (cos.f64 theta))) (cos.f64 phi1)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)))) (neg.f64 (-.f64 (.f64 delta (.f64 (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (.f64 (cos.f64 phi1) (+.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))))) (neg.f64 (fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)))) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (*.f64 delta (cos.f64 theta))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (cos.f64 phi1) (-.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta))) #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))))) (neg.f64 (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (*.f64 delta (cos.f64 theta))) (cos.f64 phi1))))
(/.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (cos.f64 phi1))) (neg.f64 (fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)))) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (*.f64 delta (cos.f64 theta))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (-.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta))) #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (neg.f64 (-.f64 (.f64 (neg.f64 (sin.f64 phi1)) (*.f64 delta (cos.f64 theta))) (cos.f64 phi1))))
(.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))
(.f64 (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)) (cos.f64 phi1))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(neg.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)))
(*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 theta))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (neg.f64 (cos.f64 theta)) (sin.f64 phi1))
(.f64 (.f64 (cos.f64 theta) #s(literal -1 binary64)) (sin.f64 phi1))
(+.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(+.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(+.f64 (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))) (cos.f64 delta))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(-.f64 (cos.f64 delta) (-.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))
(-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(-.f64 (/.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))))
(fma.f64 (cos.f64 phi1) (neg.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (neg.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(fma.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))
(fma.f64 (neg.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (sin.f64 phi1) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))
(fma.f64 (/.f64 (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (/.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1))))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))) (.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))) (.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) (.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))) (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(.f64 (-.f64 (pow.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 theta) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (cos.f64 phi1) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (cos.f64 delta) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1))))))) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1))))))) (cos.f64 phi1)) (/.f64 (cos.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 (/.f64 (cos.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1 binary64))) (/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1))))))) #s(literal 1/2 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) phi1))))))) (+.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1 binary64))) (/.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) phi1)) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))) #s(literal -2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (fma.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta))))))) (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta))))) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #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 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta)))))) (sin.f64 phi1)) (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(/.f64 (.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta))))) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (.f64 (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) phi1)) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))))) (neg.f64 (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))))
(/.f64 (neg.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta)))))))) (neg.f64 (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
(/.f64 (neg.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta))))) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))) (neg.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1))) (neg.f64 (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))))
(/.f64 (neg.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta)))))) (sin.f64 phi1))) (neg.f64 (fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
(/.f64 (neg.f64 (.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (+.f64 phi1 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 delta delta))))) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))) (sin.f64 phi1))) (neg.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))) #s(literal -1 binary64))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (sin.f64 phi1))
(.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))) #s(literal 1/2 binary64))
(.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (-.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))

eval307.0ms (1.8%)

Memory: -19.1MiB live, 500.7MiB allocated
Compiler: Compiled 72 016 to 2 940 computations (95.9% saved)

prune359.0ms (2%)

Memory

-1.2MiB live, 472.8MiB allocated

Pruning

37 alts after pruning (37 fresh and 0 done)

	Pruned	Kept	Total
New	1 713	33	1 746
Fresh	7	4	11
Picked	5	0	5
Done	0	0	0
Total	1 725	37	1 762

Accuracy

100.0%

Counts

1 762 → 37

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.9%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1)
	88.8%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)
▶	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	88.5%	(+.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.4%	(+.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))))))
	94.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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))))))))
	80.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	89.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	85.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal 1/2 binary64) (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 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)))) #s(literal 1/2 binary64))))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)))))
	94.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
	80.4%	(+.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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	79.9%	(+.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) (fma.f64 delta #s(approx ( (cos theta) (neg (sin phi1))) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
▶	71.6%	(+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
	64.0%	(+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
	80.0%	(+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))))))
	76.5%	(+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
	73.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (fma.f64 (fma.f64 delta (.f64 delta #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) (.f64 delta (.f64 delta delta)) 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 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
▶	65.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
	74.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	50.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 (.f64 theta theta) #s(literal 1/120 binary64))))))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	74.5%	(+.f64 lambda1 (atan2.f64 #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 delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
▶	86.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
	24.6%	#s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	25.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	20.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
	25.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
	12.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	21.6%	#s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (cos.f64 delta))))
	19.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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))

Compiler

Compiled 2 244 to 1 396 computations (37.8% saved)

simplify377.0ms (2.2%)

Memory

45.0MiB live, 513.1MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	0	(sin.f64 delta)
✓	cost-diff	0	(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))
✓	cost-diff	0	(atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
✓	cost-diff	0	#s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta)))
✓	cost-diff	0	(.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1))
✓	cost-diff	0	(atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))
✓	cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
✓	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) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))
✓	cost-diff	0	(+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
✓	cost-diff	0	(*.f64 (sin.f64 delta) (sin.f64 theta))
✓	cost-diff	0	#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓	cost-diff	0	(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))
✓	cost-diff	0	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (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 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
✓	cost-diff	6592	(-.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta)))

Rules

13 656×	`lower-fma.f32`
13 646×	`lower-fma.f64`
3 686×	`lower-*.f32`
3 650×	`lower-*.f64`
2 044×	`lower-+.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	89	1039
0	145	1039
1	252	1039
2	452	1025
3	1079	1025
4	2223	1025
5	3463	1025
6	4675	1025
7	5863	1025
8	6963	1025
9	7463	1025
10	7654	1025
11	7744	1025
0	8077	1001

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

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

localize762.0ms (4.4%)

Memory

-266.8MiB live, 711.5MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.5%	(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
✓	accuracy	99.2%	(-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
✓	accuracy	76.3%	#s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
✓	accuracy	31.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
✓	accuracy	99.6%	(.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))
✓	accuracy	96.9%	(.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))
✓	accuracy	54.5%	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))
✓	accuracy	50.5%	#s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta)))
✓	accuracy	99.8%	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	54.5%	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))
✓	accuracy	48.7%	#s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))
✓	accuracy	99.8%	(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))
✓	accuracy	99.7%	(*.f64 (sin.f64 delta) (sin.f64 theta))
✓	accuracy	57.1%	#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓	accuracy	54.0%	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	99.6%	(.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
✓	accuracy	99.0%	(-.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta)))
✓	accuracy	77.7%	(fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))

Samples

415.0ms	145×	0	valid
154.0ms	79×	2	valid
53.0ms	32×	1	valid

Compiler

Compiled 774 to 67 computations (91.3% saved)

Precisions

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

ival-cos: 318.0ms (61.1% of total)

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

adjust: 42.0ms (8.1% of total)

ival-sin: 32.0ms (6.1% of total)

ival-add: 18.0ms (3.5% of total)

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

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

const: 8.0ms (1.5% of total)

ival-asin: 7.0ms (1.3% of total)

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

exact: 1.0ms (0.2% of total)

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

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

series112.0ms (0.6%)

Memory

6.6MiB live, 121.8MiB allocated

Counts

30 → 1 020

Calls

Call 1

Inputs
#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())
#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())
#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())
#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())
#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())
#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())
#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())
#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())
#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())
#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())
#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())
#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())
#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())
#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())
#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())
#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())
#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())
#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())
#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())
#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())
#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())
#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())
#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())

Outputs
#s(alt (- 1/2 (* -1/2 (cos (* 2 phi1)))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1)))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1)))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1)))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* (pow phi1 2) (cos delta)))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta)))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta)))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (sin theta)) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (sin delta)) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (sin.f64 theta)) (patch (.f64 (sin.f64 delta) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* theta (sin delta)) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (sin theta)) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (sin delta)) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta))))))) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (sin theta)) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta))))) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta))))))) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta)))))))) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (patch #s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (patch (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (patch (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt delta (taylor 0 delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (* delta (+ 1 (* -1/6 (pow delta 2)))) (taylor 0 delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6)))) (taylor 0 delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6)))) (taylor 0 delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor -inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor -inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor -inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (sin delta) (taylor -inf delta) (#s(alt (sin.f64 delta) (patch (sin.f64 delta) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2)))) (taylor 0 phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3)))) (taylor 0 phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3)))) (taylor 0 phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (* (cos theta) (sin delta))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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)))))))))))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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)))))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin phi1))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ 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)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (taylor 0 phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta)))))) (taylor 0 phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1))))) (taylor 0 phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow (cos phi1) 2) (taylor 0 delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (taylor inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (taylor -inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (taylor 0 theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))) (taylor 0 theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1))))))) (taylor 0 theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1)))))))))) (taylor 0 theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 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)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 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)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ theta (* -1/6 (pow theta 3)))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ theta (+ (* -1/6 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* -1/6 (pow theta 3))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* 1/120 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3)))))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* 1/120 (+ theta (* -1/6 (pow theta 3))))))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (sin delta)) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (* (pow theta 3) (sin delta))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2)))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2)))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2)))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (* (pow theta 3) (sin delta))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta))))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta))))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta))))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (taylor 0 phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta)))))) (taylor 0 phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1))))) (taylor 0 phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (pow (cos phi1) 2) (taylor 0 delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (taylor inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (taylor -inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (taylor 0 theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))) (taylor 0 theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1))))))) (taylor 0 theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1)))))))))) (taylor 0 theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) (patch (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (* (cos theta) (sin delta))) (taylor 0 phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))) (taylor 0 phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (taylor 0 phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* 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)))) (taylor 0 phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf phi1) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))))))))) (taylor 0 theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf theta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (pow (sin phi1) 2) (taylor 0 delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 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)) (taylor 0 delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor inf delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (taylor -inf delta) (#s(alt #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (patch #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 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)) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (patch (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (sin delta)) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (sin delta) (* phi1 (cos delta)))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (sin delta)))))))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (sin delta))))))))) (taylor 0 phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor -inf phi1) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (pow (sin phi1) 2) (taylor 0 delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ (* delta (* (cos phi1) (sin phi1))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (sin phi1)))))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (patch (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #<representation binary64>) () ())) ())

Calls

255 calls:

Time	Variable		Point	Expression
13.0ms	phi1	@	inf	(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))
1.0ms	delta	@	inf	(* (sin delta) (+ (* theta (* -1/6 (* theta theta))) theta))
1.0ms	phi1	@	-inf	(- (cos delta) (* (+ (* (cos (+ phi1 phi1)) -1/2) 1/2) (cos delta)))
1.0ms	delta	@	0	(- (cos delta) (* (+ (* (cos (+ phi1 phi1)) -1/2) 1/2) (cos delta)))
1.0ms	phi1	@	inf	(- (cos delta) (* (+ (* (cos (+ phi1 phi1)) -1/2) 1/2) (cos delta)))

simplify703.0ms (4%)

Memory

12.5MiB live, 997.3MiB allocated

Algorithm

1×	egg-herbie

Rules

15 894×	`lower-fma.f64`
15 894×	`lower-fma.f32`
8 796×	`lower-*.f64`
8 796×	`lower-*.f32`
4 324×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	517	22713
1	1849	21931
2	6291	21712
0	8786	20728

Stop Event

1×	iter limit
1×	node limit

Counts

1 020 → 1 009

Calls

Call 1

Inputs
(- 1/2 (* -1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
delta
(* delta (+ 1 (* -1/6 (pow delta 2))))
(* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))
(* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(* 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)))))))))))
(* 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))))))))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(* 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)))))))))
(* 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))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+ (* (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))))))))
(+ (* (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)))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
1
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(pow (cos phi1) 2)
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(* delta (+ theta (* -1/6 (pow theta 3))))
(* delta (+ theta (+ (* -1/6 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* -1/6 (pow theta 3)))))
(* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* 1/120 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))))))))
(* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* 1/120 (+ theta (* -1/6 (pow theta 3)))))))))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* -1/6 (* (pow theta 3) (sin delta)))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(* -1/6 (* (pow theta 3) (sin delta)))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
1
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(pow (cos phi1) 2)
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* 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))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+ (* (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))))))))
(+ (* (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)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* 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))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(* phi1 (sin delta))
(* phi1 (+ (sin delta) (* phi1 (cos delta))))
(* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))))
(* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (sin delta)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (sin phi1))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (sin phi1)))))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))

Outputs
(- 1/2 (* -1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(- (+ 1/2 (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(fma.f64 (.f64 delta delta) (-.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (+.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/48 binary64))) (-.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (+.f64 #s(literal -1/1440 binary64) (neg.f64 (.f64 #s(literal 1/1440 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64)))))) (+.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/48 binary64)))) (-.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(*.f64 (fma.f64 phi1 (neg.f64 phi1) #s(literal 1 binary64)) (cos.f64 delta))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))
(fma.f64 (.f64 phi1 phi1) (.f64 (cos.f64 delta) (fma.f64 #s(literal 1/3 binary64) (*.f64 phi1 phi1) #s(literal -1 binary64))) (cos.f64 delta))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))
(fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (.f64 (cos.f64 delta) (fma.f64 #s(literal -2/45 binary64) (.f64 phi1 phi1) #s(literal 1/3 binary64))) (neg.f64 (cos.f64 delta))) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1) lambda1)
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))
(* 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)))))))))
(.f64 theta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 theta theta))) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) #s(literal 1/120 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)))))))))
(.f64 delta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ (* (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))))))))
(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 phi1 phi1) (.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (.f64 phi1 phi1))) (fma.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1) #s(literal 1/24 binary64)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
lambda1
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))
(* 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)))))))))
(.f64 theta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 theta theta))) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) #s(literal 1/120 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)))))))))
(.f64 delta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ (* (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))))))))
(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 phi1 phi1) (.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (.f64 phi1 phi1))) (fma.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1) #s(literal 1/24 binary64)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 (sin.f64 theta) (fma.f64 delta (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (.f64 (sin.f64 theta) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (*.f64 delta delta) #s(literal 1/120 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))))))))
(.f64 delta (fma.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (*.f64 theta theta))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(.f64 theta (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (.f64 theta theta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
lambda1
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (*.f64 theta theta))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(.f64 theta (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (.f64 theta theta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 (sin.f64 theta) (fma.f64 delta (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (.f64 (sin.f64 theta) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (*.f64 delta delta) #s(literal 1/120 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))))))))
(.f64 delta (fma.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
lambda1
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))
(* 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)))))))))
(.f64 theta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 theta theta))) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) #s(literal 1/120 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)))))))))
(.f64 delta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ (* (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))))))))
(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 phi1 phi1) (.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (.f64 phi1 phi1))) (fma.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1) #s(literal 1/24 binary64)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (*.f64 theta theta))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(.f64 theta (fma.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (.f64 theta theta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 (sin.f64 theta) (fma.f64 delta (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (.f64 (sin.f64 theta) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (*.f64 delta delta) #s(literal 1/120 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))))))))
(.f64 delta (fma.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
lambda1
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) #s(literal 1/120 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)))))))))
(.f64 delta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ (* (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))))))))
(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 phi1 phi1) (.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (.f64 phi1 phi1))) (fma.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1) #s(literal 1/24 binary64)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))
(* 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)))))))))
(.f64 theta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 theta theta))) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
delta
(* delta (+ 1 (* -1/6 (pow delta 2))))
(fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)
(* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))
(fma.f64 (.f64 delta delta) (.f64 (fma.f64 (*.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)
(* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))
(fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) delta) delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(.f64 phi1 (.f64 phi1 (fma.f64 phi1 (*.f64 phi1 #s(literal -1/3 binary64)) #s(literal 1 binary64))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 phi1 (.f64 phi1 #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(.f64 phi1 (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 (+ (* (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)))))))))))
(.f64 phi1 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (.f64 (sin.f64 delta) (cos.f64 theta))))
(* 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))))))))))))))))
(.f64 phi1 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64) (.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -4/315 binary64)))) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 delta (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* 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)))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (+.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (*.f64 delta delta) #s(literal 1/120 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))))))))))
(.f64 delta (fma.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* (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))))))))
(.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/24 binary64) (.f64 theta theta)))))
(+ (* (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)))))))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(fma.f64 delta (fma.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)) (neg.f64 (cos.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 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))
(fma.f64 delta (-.f64 (.f64 delta (fma.f64 #s(literal 1/6 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) delta)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (neg.f64 (fma.f64 phi1 (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64) (neg.f64 (cos.f64 delta))) (*.f64 (sin.f64 delta) (neg.f64 (cos.f64 theta)))) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (cos.f64 delta))
(- (+ (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)))))
(fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(- (+ (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)))))
(fma.f64 (.f64 theta theta) (fma.f64 theta (.f64 theta (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
1
#s(literal 1 binary64)
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (.f64 delta (cos.f64 theta)) #s(literal 2/3 binary64)) #s(literal -1 binary64)) (neg.f64 (*.f64 delta (cos.f64 theta)))) #s(literal 1 binary64))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (neg.f64 delta))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (neg.f64 delta))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (+.f64 #s(literal -1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 theta theta)))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (.f64 theta theta) delta)) (fma.f64 #s(literal -1/24 binary64) (*.f64 theta theta) #s(literal 1/2 binary64))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(+.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (+.f64 #s(literal -1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 theta theta))))) (.f64 (.f64 theta theta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (.f64 theta theta) delta)) (fma.f64 #s(literal 1/720 binary64) (*.f64 theta theta) #s(literal -1/24 binary64)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(fma.f64 delta (fma.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)) (neg.f64 (cos.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 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))
(fma.f64 delta (-.f64 (.f64 delta (fma.f64 #s(literal 1/6 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) delta)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (neg.f64 (fma.f64 phi1 (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64) (neg.f64 (cos.f64 delta))) (*.f64 (sin.f64 delta) (neg.f64 (cos.f64 theta)))) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (cos.f64 delta))
(- (+ (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)))))
(fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(- (+ (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)))))
(fma.f64 (.f64 theta theta) (fma.f64 theta (.f64 theta (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(fma.f64 delta (fma.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)) (neg.f64 (cos.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 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))
(fma.f64 delta (-.f64 (.f64 delta (fma.f64 #s(literal 1/6 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) delta)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (neg.f64 (fma.f64 phi1 (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64) (neg.f64 (cos.f64 delta))) (*.f64 (sin.f64 delta) (neg.f64 (cos.f64 theta)))) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (cos.f64 delta))
(- (+ (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)))))
(fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(- (+ (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)))))
(fma.f64 (.f64 theta theta) (fma.f64 theta (.f64 theta (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(* delta (+ theta (* -1/6 (pow theta 3))))
(.f64 delta (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* delta (+ theta (+ (* -1/6 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* -1/6 (pow theta 3)))))
(.f64 delta (fma.f64 #s(literal -1/6 binary64) (fma.f64 (.f64 delta delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta) (.f64 theta (.f64 theta theta))) theta))
(* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* 1/120 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))))))))
(.f64 delta (fma.f64 (.f64 delta delta) (.f64 (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta) (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64))) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))
(* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* 1/120 (+ theta (* -1/6 (pow theta 3)))))))))))
(.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (fma.f64 (.f64 theta (.f64 theta theta)) #s(literal 1/36 binary64) (.f64 #s(literal -1/6 binary64) theta))) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) theta))
(* -1/6 (* (pow theta 3) (sin delta)))
(.f64 (sin.f64 delta) (.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64))))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
(* -1/6 (* (pow theta 3) (sin delta)))
(.f64 (sin.f64 delta) (.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64))))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
1
#s(literal 1 binary64)
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (.f64 delta (cos.f64 theta)) #s(literal 2/3 binary64)) #s(literal -1 binary64)) (neg.f64 (*.f64 delta (cos.f64 theta)))) #s(literal 1 binary64))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (neg.f64 delta))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (neg.f64 delta))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (+.f64 #s(literal -1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 theta theta)))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (.f64 theta theta) delta)) (fma.f64 #s(literal -1/24 binary64) (*.f64 theta theta) #s(literal 1/2 binary64))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(+.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (+.f64 #s(literal -1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 theta theta))))) (.f64 (.f64 theta theta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (.f64 theta theta) delta)) (fma.f64 #s(literal 1/720 binary64) (*.f64 theta theta) #s(literal -1/24 binary64)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (cos.f64 delta)) (.f64 (sin.f64 delta) (cos.f64 theta))))
(* 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))))
(.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (cos.f64 delta) #s(literal -1/3 binary64)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (cos.f64 delta)) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))
(+ (* (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))))))))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/24 binary64) (.f64 theta theta))))))
(+ (* (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)))))))))
(fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(.f64 (sin.f64 phi1) (fma.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(fma.f64 delta (.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 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))
(fma.f64 delta (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) delta) (.f64 (fma.f64 delta (.f64 delta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(fma.f64 delta (fma.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)) (neg.f64 (cos.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 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))
(fma.f64 delta (-.f64 (.f64 delta (fma.f64 #s(literal 1/6 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) delta)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (neg.f64 (fma.f64 phi1 (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64) (neg.f64 (cos.f64 delta))) (*.f64 (sin.f64 delta) (neg.f64 (cos.f64 theta)))) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (cos.f64 delta))
(- (+ (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)))))
(fma.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(- (+ (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)))))
(fma.f64 (.f64 theta theta) (fma.f64 theta (.f64 theta (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(* phi1 (sin delta))
(*.f64 phi1 (sin.f64 delta))
(* phi1 (+ (sin delta) (* phi1 (cos delta))))
(*.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (sin.f64 delta)))
(* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))))
(.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (sin.f64 delta) #s(literal -2/3 binary64)) (cos.f64 delta)) (sin.f64 delta)))
(* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (sin delta)))))))))
(.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (cos.f64 delta) #s(literal -1/3 binary64)) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64))) (cos.f64 delta)) (sin.f64 delta)))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (sin phi1))) (pow (sin phi1) 2))
(*.f64 (sin.f64 phi1) (fma.f64 delta (cos.f64 phi1) (sin.f64 phi1)))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2))
(fma.f64 delta (.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (cos.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (sin phi1)))))) (* (cos phi1) (sin phi1)))) (pow (sin phi1) 2))
(fma.f64 (.f64 delta delta) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (cos.f64 phi1))))) (*.f64 (sin.f64 phi1) (fma.f64 delta (cos.f64 phi1) (sin.f64 phi1))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))

rewrite362.0ms (2.1%)

Memory

8.0MiB live, 621.3MiB allocated

Algorithm

1×	batch-egg-rewrite

Rules

5 184×	`lower-*.f32`
5 148×	`lower-*.f64`
4 032×	`lower-fma.f32`
4 022×	`lower-fma.f64`
2 750×	`lower-/.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	89	838
0	145	818
1	495	783
2	3354	783
0	8268	762

Stop Event

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

Counts

30 → 278

Calls

Call 1

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

Outputs
(+.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))))
(+.f64 (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))) (cos.f64 delta))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))))
(fma.f64 (cos.f64 delta) (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 delta))
(fma.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 delta))
(fma.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 delta) (cos.f64 delta))
(fma.f64 (neg.f64 (cos.f64 delta)) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))) (.f64 (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (*.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))
(pow.f64 (/.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))))
(*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))))))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (neg.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.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 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #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 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (-.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (-.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (-.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))) (.f64 (-.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (-.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (-.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) lambda1) (.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) lambda1) (.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) lambda1) (.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1)))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1)))))) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))))))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))))))
(atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (.f64 theta #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1)))))
(.f64 (cos.f64 phi1) #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (*.f64 theta #s(literal -1/6 binary64)) theta))))
(.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (*.f64 theta #s(literal -1/6 binary64)) theta))) (cos.f64 phi1))
#s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (*.f64 theta #s(literal -1/6 binary64)) 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 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))))
(/.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 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #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 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(sin.f64 delta)
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(-.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (+.f64 #s(literal 1/4 binary64) (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))) (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64)))))
(/.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64)) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) (neg.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64)))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(pow.f64 (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64))) #s(literal -1 binary64))
(.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64)))))
(.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(.f64 (cos.f64 phi1) (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (cos.f64 theta))
(.f64 (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1))))
(+.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta)))) (*.f64 theta (sin.f64 delta)))
(+.f64 (.f64 theta (sin.f64 delta)) (.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 theta (*.f64 theta theta)))))
(fma.f64 theta (sin.f64 delta) (.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta)))))
(fma.f64 theta (.f64 (.f64 theta (.f64 theta #s(literal -1/6 binary64))) (sin.f64 delta)) (.f64 theta (sin.f64 delta)))
(fma.f64 (sin.f64 delta) theta (.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta)))))
(fma.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta))) (.f64 theta (sin.f64 delta)))
(fma.f64 (.f64 theta (.f64 theta #s(literal -1/6 binary64))) (.f64 theta (sin.f64 delta)) (.f64 theta (sin.f64 delta)))
(fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta))) (sin.f64 delta) (.f64 theta (sin.f64 delta)))
(fma.f64 (.f64 theta (sin.f64 delta)) (.f64 theta (.f64 theta #s(literal -1/6 binary64))) (.f64 theta (sin.f64 delta)))
(fma.f64 (.f64 theta #s(literal -1/6 binary64)) (.f64 (.f64 theta theta) (sin.f64 delta)) (.f64 theta (sin.f64 delta)))
(fma.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) theta (.f64 theta (sin.f64 delta)))
(fma.f64 (.f64 (sin.f64 delta) (.f64 theta #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 theta (sin.f64 delta)))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta)))) #s(literal 3 binary64)) (pow.f64 (.f64 theta (sin.f64 delta)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 theta (sin.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta)))) (.f64 theta (sin.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta)))) #s(literal 2 binary64)) (pow.f64 (.f64 theta (sin.f64 delta)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta)))) (.f64 theta (sin.f64 delta))))
(/.f64 (.f64 (sin.f64 delta) (fma.f64 (.f64 (.f64 theta (.f64 theta theta)) #s(literal -1/216 binary64)) (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) (.f64 theta (.f64 theta theta)))) (fma.f64 (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) #s(literal 1/36 binary64) (.f64 theta (-.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta)))))))
(/.f64 (.f64 (sin.f64 delta) (fma.f64 (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) #s(literal 1/36 binary64) (.f64 (neg.f64 theta) theta))) (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta))) theta))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 theta (.f64 theta theta)) #s(literal -1/216 binary64)) (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) (.f64 theta (.f64 theta theta))) (sin.f64 delta)) (fma.f64 (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) #s(literal 1/36 binary64) (.f64 theta (-.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta)))))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) #s(literal 1/36 binary64) (.f64 (neg.f64 theta) theta)) (sin.f64 delta)) (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta (.f64 theta theta))) theta))
(.f64 (sin.f64 delta) (fma.f64 (.f64 theta theta) (*.f64 theta #s(literal -1/6 binary64)) theta))
(.f64 (fma.f64 (.f64 theta theta) (*.f64 theta #s(literal -1/6 binary64)) theta) (sin.f64 delta))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))) (.f64 (cos.f64 phi1) (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(+.f64 (.f64 (cos.f64 phi1) (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))))
(fma.f64 delta (.f64 (neg.f64 (.f64 (cos.f64 theta) (sin.f64 phi1))) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi1) (.f64 (cos.f64 phi1) (neg.f64 (.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(fma.f64 (cos.f64 phi1) (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))))
(fma.f64 (neg.f64 (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 delta (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))))
(fma.f64 (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1))) (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))))
(fma.f64 (.f64 delta (cos.f64 theta)) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))))
(fma.f64 (.f64 (cos.f64 phi1) delta) (neg.f64 (.f64 (cos.f64 theta) (sin.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))))
(fma.f64 (.f64 (cos.f64 phi1) (neg.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)))) delta (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 delta (cos.f64 theta))) (neg.f64 (sin.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 6 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (.f64 (cos.f64 phi1) (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 (cos.f64 phi1) (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))
(/.f64 (.f64 (cos.f64 phi1) (+.f64 (pow.f64 (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1)))) (pow.f64 (neg.f64 (.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 (cos.f64 phi1) (-.f64 (pow.f64 (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))))) (fma.f64 (neg.f64 (sin.f64 phi1)) (*.f64 delta (cos.f64 theta)) (neg.f64 (cos.f64 phi1))))
(/.f64 (.f64 (+.f64 (pow.f64 (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (cos.f64 phi1)) (fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1)))) (pow.f64 (neg.f64 (.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (pow.f64 (neg.f64 (.f64 (.f64 delta (cos.f64 theta)) (sin.f64 phi1))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (*.f64 delta (cos.f64 theta)) (neg.f64 (cos.f64 phi1))))
(.f64 (cos.f64 phi1) (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1)))
(.f64 (fma.f64 (neg.f64 (sin.f64 phi1)) (.f64 delta (cos.f64 theta)) (cos.f64 phi1)) (cos.f64 phi1))
#s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))
(+.f64 (cos.f64 delta) (neg.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))))
(+.f64 (neg.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (cos.f64 delta))
(-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (/.f64 (pow.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 3 binary64)) (fma.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))) (/.f64 (pow.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))))
(fma.f64 #s(literal -1 binary64) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 3 binary64))) (fma.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (pow.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (neg.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (neg.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (.f64 (fma.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (pow.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 3 binary64)))) (.f64 (fma.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (fma.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (+.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))) (.f64 (+.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (pow.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)))) (.f64 (+.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))))
(pow.f64 (/.f64 (fma.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))))
(+.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))
(+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))
(fma.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))) (cos.f64 delta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (sin.f64 delta) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 (-.f64 delta phi1)))))
(/.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta)))) (sin.f64 (-.f64 phi1 delta)))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 (-.f64 delta phi1)))))
(/.f64 (.f64 (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta))) (sin.f64 phi1)) (sin.f64 (-.f64 phi1 delta)))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 delta phi1))) (cos.f64 (+.f64 phi1 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 delta phi1) phi1)) (cos.f64 (+.f64 (+.f64 delta phi1) phi1))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (sin.f64 phi1) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (sin.f64 phi1) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (sin.f64 phi1) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta)))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (sin.f64 phi1) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta)))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta))) (sin.f64 phi1)))) #s(literal 4 binary64))
(*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))
(*.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 phi1))

eval246.0ms (1.4%)

Memory: 37.1MiB live, 501.5MiB allocated
Compiler: Compiled 50 334 to 2 042 computations (95.9% saved)

prune341.0ms (1.9%)

Memory

-26.5MiB live, 625.8MiB allocated

Pruning

52 alts after pruning (49 fresh and 3 done)

	Pruned	Kept	Total
New	1 421	26	1 447
Fresh	9	23	32
Picked	2	3	5
Done	0	0	0
Total	1 432	52	1 484

Accuracy

100.0%

Counts

1 484 → 52

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.9%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1)
	88.8%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)
✓	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	94.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #s(approx ( (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
	92.4%	(+.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))))))
▶	80.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	89.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	85.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal 1/2 binary64) (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 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)))) #s(literal 1/2 binary64))))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)))))
	80.4%	(+.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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	79.9%	(+.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) (fma.f64 delta #s(approx ( (cos theta) (neg (sin phi1))) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
	80.0%	(+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))))))
▶	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	65.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) theta (.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
	63.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
	75.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
▶	70.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
	59.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
	65.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))))))))
	65.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
	74.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
▶	64.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
	50.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 (.f64 theta theta) #s(literal 1/120 binary64))))))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	70.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
	63.7%	(+.f64 lambda1 (atan2.f64 #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 delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
	74.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	75.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	81.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
✓	86.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	70.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
	73.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	72.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	72.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	73.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	57.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
▶	75.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	24.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 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))))
	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
	24.6%	#s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	24.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (/.f64 (.f64 (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta))) (sin.f64 phi1)) (sin.f64 (-.f64 phi1 delta)))))))
✓	25.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	25.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
	12.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	21.6%	#s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (cos.f64 delta))))
	19.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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
	19.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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))

Compiler

Compiled 3 018 to 1 826 computations (39.5% saved)

simplify462.0ms (2.6%)

Memory

32.9MiB live, 584.3MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	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 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
✓	cost-diff	128	(*.f64 #s(literal 2 binary64) phi1)
✓	cost-diff	0	#s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta)))
✓	cost-diff	0	(.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1))
✓	cost-diff	0	(atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))
✓	cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
✓	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) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))
✓	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) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
✓	cost-diff	0	#s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))
✓	cost-diff	0	#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))))
✓	cost-diff	0	(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))
✓	cost-diff	0	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
✓	cost-diff	0	(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
✓	cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))
✓	cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
✓	cost-diff	6592	(-.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta)))

Rules

13 466×	`lower-fma.f32`
13 458×	`lower-fma.f64`
3 700×	`lower-*.f32`
3 664×	`lower-*.f64`
2 062×	`lower-+.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	92	1039
0	151	1035
1	264	1035
2	480	1001
3	1162	1001
4	2448	1001
5	3682	1001
6	4759	1001
7	5840	1001
8	7013	1001
9	7358	1001
10	7550	1001
11	7648	1001
0	8116	986

Stop Event

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

Calls

Call 1

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

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

localize463.0ms (2.6%)

Memory

-20.4MiB live, 808.6MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	99.6%	(.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
✓	accuracy	99.3%	(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))
✓	accuracy	57.7%	#s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)))
✓	accuracy	99.7%	(.f64 #s(literal -1/6 binary64) (.f64 theta theta))
✓	accuracy	96.9%	(.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))
✓	accuracy	50.5%	#s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta)))
✓	accuracy	48.7%	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))
✓	accuracy	99.8%	(.f64 #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1))
✓	accuracy	54.5%	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))
✓	accuracy	50.4%	#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
✓	accuracy	48.7%	#s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))
✓	accuracy	99.8%	(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))
✓	accuracy	57.1%	#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))))
✓	accuracy	54.0%	#s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))
✓	accuracy	54.0%	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
✓	accuracy	99.6%	(.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
✓	accuracy	99.6%	(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
✓	accuracy	99.0%	(-.f64 (cos.f64 delta) (*.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta)))
✓	accuracy	77.7%	(fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))

Samples

161.0ms	79×	2	valid
110.0ms	145×	0	valid
42.0ms	32×	1	valid

Compiler

Compiled 790 to 73 computations (90.8% saved)

Precisions

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

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

ival-cos: 61.0ms (25.4% of total)

ival-sin: 33.0ms (13.8% of total)

adjust: 27.0ms (11.3% of total)

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

ival-sub: 13.0ms (5.4% of total)

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

const: 7.0ms (2.9% of total)

ival-asin: 7.0ms (2.9% of total)

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

exact: 1.0ms (0.4% of total)

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

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

series77.0ms (0.4%)

Memory

24.1MiB live, 140.2MiB allocated

Counts

31 → 996

Calls

Call 1

Inputs
#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())
#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())
#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())
#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())
#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())
#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())
#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())
#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())
#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())
#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())
#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())
#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())
#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())
#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())
#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())
#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())
#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())
#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())
#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())
#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())
#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())
#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())
#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())
#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())
#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())

Outputs
#s(alt (- 1/2 (* -1/2 (cos (* 2 phi1)))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1)))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1)))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1)))) (taylor 0 delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* (pow phi1 2) (cos delta)))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta)))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta)))) (taylor 0 phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))))) (taylor -inf phi1) (#s(alt (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (patch (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (patch (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (patch (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (patch (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) (patch #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #<representation binary64>) () ())) ())
#s(alt (* delta (sin theta)) (taylor 0 delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta))))) (taylor 0 delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta))))))) (taylor 0 delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta)))))))) (taylor 0 delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (sin delta)) (taylor 0 theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta))))))) (taylor 0 theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta))) (patch #s(approx ( (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) (patch (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (sin delta)) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta))))))) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (sin theta)) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta))))) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta))))))) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta)))))))) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (patch #s(approx ( (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta)) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (* -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))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (patch (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) (patch (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (sin delta)) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta))))))) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta)))))))) (taylor 0 theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (sin theta)) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta))))) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta))))))) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta)))))))) (taylor 0 delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (patch #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor 0 phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor 0 phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor 0 phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor 0 phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor inf phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor inf phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor inf phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor inf phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor -inf phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor -inf phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor -inf phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (* 2 phi1) (taylor -inf phi1) (#s(alt (.f64 #s(literal 2 binary64) phi1) (patch (.f64 #s(literal 2 binary64) phi1) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1))) (taylor inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1))) (taylor -inf lambda1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf theta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf delta) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor 0 phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) (taylor -inf phi1) (#s(alt (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) (patch (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf theta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf delta) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor 0 phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) (taylor -inf phi1) (#s(alt (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) (patch (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* theta (* (cos phi1) (sin delta))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf theta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (sin theta))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta)))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf delta) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin theta))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (patch (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (pow phi1 2) (taylor 0 phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2)))) (taylor 0 phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3)))) (taylor 0 phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3)))) (taylor 0 phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 phi1))))) (taylor -inf phi1) (#s(alt (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (* (cos theta) (sin delta))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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)))))))))))))))) (taylor 0 phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf phi1) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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))))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* 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)))))))))) (taylor 0 delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf delta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (sin delta) (sin phi1))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))))))))) (taylor 0 theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))) (taylor -inf theta) (#s(alt (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) (patch (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ 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)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (taylor 0 phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta)))))) (taylor 0 phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1))))) (taylor 0 phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow (cos phi1) 2) (taylor 0 delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (taylor inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta))) (taylor inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (taylor -inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (taylor -inf delta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (taylor 0 theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))) (taylor 0 theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1))))))) (taylor 0 theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1)))))))))) (taylor 0 theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))) (taylor -inf theta) (#s(alt #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) (patch #s(approx ( (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 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)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) (patch #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 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)) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta))))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (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))))) (taylor 0 theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (taylor -inf theta) (#s(alt #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) (patch #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))) #<representation binary64>) () ())) ())
#s(alt (* delta (+ theta (* -1/6 (pow theta 3)))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ theta (+ (* -1/6 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* -1/6 (pow theta 3))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* 1/120 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3)))))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* 1/120 (+ theta (* -1/6 (pow theta 3))))))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (+ theta (* -1/6 (pow theta 3)))) (taylor -inf delta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (sin delta)) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (* (pow theta 3) (sin delta))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2)))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2)))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2)))) (taylor inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (* (pow theta 3) (sin delta))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta))))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta))))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta))))) (taylor -inf theta) (#s(alt (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) (patch (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor 0 theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor 0 theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor 0 theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor 0 theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor inf theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor inf theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor inf theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor inf theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor -inf theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor -inf theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor -inf theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow theta 2)) (taylor -inf theta) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (patch (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* 1/2 (cos (* 2 phi1))))) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))))) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))))) (taylor 0 delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf delta) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos delta) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* -1 (* (pow phi1 2) (cos delta)))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta)))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta)))) (taylor 0 phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor inf phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (taylor -inf phi1) (#s(alt #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (patch #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (pow phi1 2))) (taylor 0 phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1))) (taylor 0 phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1))) (taylor 0 phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor inf phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor -inf phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor -inf phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor -inf phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (taylor -inf phi1) (#s(alt (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* theta (sin delta)) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta)))))))) (taylor 0 theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf theta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (sin theta)) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta)))))))) (taylor 0 delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())
#s(alt (* (sin delta) (sin theta)) (taylor -inf delta) (#s(alt (.f64 (sin.f64 theta) (sin.f64 delta)) (patch (.f64 (sin.f64 theta) (sin.f64 delta)) #<representation binary64>) () ())) ())

Calls

249 calls:

Time	Variable		Point	Expression
0.0ms	theta	@	0	(* -1/6 (* theta theta))
0.0ms	theta	@	inf	(* -1/6 (* theta theta))
0.0ms	phi1	@	inf	(* 2 phi1)
0.0ms	phi1	@	-inf	(* 2 phi1)
0.0ms	phi1	@	0	(* 2 phi1)

simplify528.0ms (3%)

Memory

-26.7MiB live, 800.4MiB allocated

Algorithm

1×	egg-herbie

Rules

12 780×	`lower-fma.f64`
12 780×	`lower-fma.f32`
8 018×	`lower-*.f64`
8 018×	`lower-*.f32`
3 222×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	499	21965
1	1751	21271
2	5951	21100
0	8255	20078

Stop Event

1×	iter limit
1×	node limit

Counts

996 → 986

Calls

Call 1

Inputs
(- 1/2 (* -1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* 2 phi1)
(* 2 phi1)
(* 2 phi1)
(* 2 phi1)
(* 2 phi1)
(* 2 phi1)
(* 2 phi1)
(* 2 phi1)
(* 2 phi1)
(* 2 phi1)
(* 2 phi1)
(* 2 phi1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(* 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)))))))))))
(* 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))))))))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(* 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)))))))))
(* 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))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+ (* (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))))))))
(+ (* (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)))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
1
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(pow (cos phi1) 2)
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(* delta (+ theta (* -1/6 (pow theta 3))))
(* delta (+ theta (+ (* -1/6 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* -1/6 (pow theta 3)))))
(* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* 1/120 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))))))))
(* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* 1/120 (+ theta (* -1/6 (pow theta 3)))))))))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* -1/6 (* (pow theta 3) (sin delta)))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(* -1/6 (* (pow theta 3) (sin delta)))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
(* -1/6 (pow theta 2))
(* -1/6 (pow theta 2))
(* -1/6 (pow theta 2))
(* -1/6 (pow theta 2))
(* -1/6 (pow theta 2))
(* -1/6 (pow theta 2))
(* -1/6 (pow theta 2))
(* -1/6 (pow theta 2))
(* -1/6 (pow theta 2))
(* -1/6 (pow theta 2))
(* -1/6 (pow theta 2))
(* -1/6 (pow theta 2))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
1
(+ 1 (* -1 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))

Outputs
(- 1/2 (* -1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(- (+ 1/2 (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(fma.f64 (.f64 delta delta) (-.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (+.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/48 binary64))) (-.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* 1/24 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (+ 1/2 (* -1/2 (cos (* 2 phi1))))))))) (* -1/2 (cos (* 2 phi1))))
(fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (fma.f64 (+.f64 #s(literal 1/1440 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/1440 binary64))) (neg.f64 (.f64 delta delta)) (+.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/48 binary64)))) (-.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(.f64 (-.f64 #s(literal 1 binary64) (.f64 phi1 phi1)) (cos.f64 delta))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))
(fma.f64 (.f64 phi1 phi1) (.f64 (cos.f64 delta) (fma.f64 phi1 (*.f64 phi1 #s(literal 1/3 binary64)) #s(literal -1 binary64))) (cos.f64 delta))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))
(fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (.f64 (cos.f64 delta) (fma.f64 (.f64 phi1 phi1) #s(literal -2/45 binary64) #s(literal 1/3 binary64))) (neg.f64 (cos.f64 delta))) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1) lambda1)
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (+ 1/2 (* -1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) #s(literal 1/120 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)))))))))
(.f64 delta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))) (.f64 (.f64 delta delta) (.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ (* (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))))))))
(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))) (.f64 (.f64 phi1 phi1) (*.f64 phi1 phi1))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 theta (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))
(* 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)))))))))
(.f64 theta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64)))) (.f64 (.f64 theta theta) (.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
lambda1
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 theta (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))
(* 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)))))))))
(.f64 theta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64)))) (.f64 (.f64 theta theta) (.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) #s(literal 1/120 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)))))))))
(.f64 delta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))) (.f64 (.f64 delta delta) (.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ (* (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))))))))
(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))) (.f64 (.f64 phi1 phi1) (*.f64 phi1 phi1))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 (sin.f64 theta) (fma.f64 delta (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (.f64 (sin.f64 theta) (+.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (*.f64 delta delta) #s(literal 1/120 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))))))))
(.f64 delta (fma.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 theta) (.f64 (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (.f64 delta delta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (*.f64 theta theta))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(.f64 theta (fma.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #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))) (.f64 (.f64 theta theta) (.f64 theta theta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
lambda1
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 theta (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))
(* 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)))))))))
(.f64 theta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64)))) (.f64 (.f64 theta theta) (.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) #s(literal 1/120 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)))))))))
(.f64 delta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))) (.f64 (.f64 delta delta) (.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ (* (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))))))))
(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))) (.f64 (.f64 phi1 phi1) (*.f64 phi1 phi1))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (*.f64 theta theta))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(.f64 theta (fma.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #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))) (.f64 (.f64 theta theta) (.f64 theta theta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 (sin.f64 theta) (fma.f64 delta (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (.f64 (sin.f64 theta) (+.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (*.f64 delta delta) #s(literal 1/120 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))))))))
(.f64 delta (fma.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 theta) (.f64 (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (.f64 delta delta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1) lambda1)
lambda1
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(* -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)))
(neg.f64 (.f64 lambda1 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) lambda1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 theta (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))
(* 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)))))))))
(.f64 theta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64)))) (.f64 (.f64 theta theta) (.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) #s(literal 1/120 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)))))))))
(.f64 delta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))) (.f64 (.f64 delta delta) (.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ (* (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))))))))
(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))) (.f64 (.f64 phi1 phi1) (*.f64 phi1 phi1))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (*.f64 theta theta))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(.f64 theta (fma.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #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))) (.f64 (.f64 theta theta) (.f64 theta theta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 (sin.f64 theta) (fma.f64 delta (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (.f64 (sin.f64 theta) (+.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (*.f64 delta delta) #s(literal 1/120 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))))))))
(.f64 delta (fma.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 theta) (.f64 (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (.f64 delta delta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(* 2 phi1)
(*.f64 #s(literal 2 binary64) phi1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1) lambda1)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1) lambda1)
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))) lambda1)) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 theta (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))
(* 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)))))))))
(.f64 theta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64)))) (.f64 (.f64 theta theta) (.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) #s(literal 1/120 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)))))))))
(.f64 delta (fma.f64 (cos.f64 phi1) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)))) (.f64 (.f64 delta delta) (.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ (* (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))))))))
(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))) (.f64 (.f64 phi1 phi1) (*.f64 phi1 phi1))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(.f64 phi1 (fma.f64 phi1 (.f64 (*.f64 phi1 phi1) #s(literal -1/3 binary64)) phi1))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(.f64 (.f64 phi1 phi1) (fma.f64 phi1 (.f64 phi1 (fma.f64 (.f64 phi1 phi1) #s(literal 2/45 binary64) #s(literal -1/3 binary64))) #s(literal 1 binary64)))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(.f64 phi1 (fma.f64 phi1 (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (.f64 phi1 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/315 binary64) #s(literal 2/45 binary64))) #s(literal -1/3 binary64))) phi1))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 phi1)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(* 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)))))))))))
(.f64 phi1 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (.f64 (sin.f64 delta) (cos.f64 theta))))
(* 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))))))))))))))))
(.f64 phi1 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64) (.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -4/315 binary64)))) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta (cos.f64 phi1)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 delta (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* 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)))))))))
(.f64 delta (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (+.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (*.f64 delta delta) #s(literal 1/120 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))))))))))
(.f64 delta (fma.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (.f64 delta delta)))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))))
(+ (* (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))))))))
(.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (+.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/24 binary64) (.f64 theta theta)))))
(+ (* (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)))))))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (.f64 theta theta) (.f64 (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))) (fma.f64 #s(literal -1/720 binary64) (*.f64 theta theta) #s(literal 1/24 binary64)))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(fma.f64 delta (-.f64 (.f64 delta (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 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))
(fma.f64 delta (-.f64 (.f64 delta (fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 delta #s(literal 1/6 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (neg.f64 (fma.f64 phi1 (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64) (neg.f64 (cos.f64 delta))) (*.f64 (sin.f64 delta) (neg.f64 (cos.f64 theta)))) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (cos.f64 delta))
(- (+ (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)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (fma.f64 (.f64 theta theta) #s(literal -1/24 binary64) #s(literal 1/2 binary64))) (cos.f64 delta)))
(- (+ (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)))))
(-.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
1
#s(literal 1 binary64)
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(-.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 delta (cos.f64 theta))))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 phi1 (.f64 delta (cos.f64 theta))) #s(literal 2/3 binary64) #s(literal -1 binary64)) (neg.f64 (*.f64 delta (cos.f64 theta)))) #s(literal 1 binary64))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (*.f64 delta (cos.f64 phi1))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(.f64 delta (.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (*.f64 delta (cos.f64 phi1))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(.f64 delta (.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (+.f64 #s(literal -1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 theta theta)))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (fma.f64 (*.f64 theta theta) #s(literal -1/24 binary64) #s(literal 1/2 binary64)))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(+.f64 (+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))) (+.f64 #s(literal -1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 theta theta))))) (.f64 (.f64 theta theta) (.f64 (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1)))) (fma.f64 #s(literal 1/720 binary64) (*.f64 theta theta) #s(literal -1/24 binary64)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(fma.f64 delta (-.f64 (.f64 delta (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 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))
(fma.f64 delta (-.f64 (.f64 delta (fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 delta #s(literal 1/6 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (neg.f64 (fma.f64 phi1 (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64) (neg.f64 (cos.f64 delta))) (*.f64 (sin.f64 delta) (neg.f64 (cos.f64 theta)))) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (cos.f64 delta))
(- (+ (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)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (fma.f64 (.f64 theta theta) #s(literal -1/24 binary64) #s(literal 1/2 binary64))) (cos.f64 delta)))
(- (+ (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)))))
(-.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(fma.f64 delta (-.f64 (.f64 delta (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 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))
(fma.f64 delta (-.f64 (.f64 delta (fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 delta #s(literal 1/6 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (neg.f64 (fma.f64 phi1 (cos.f64 delta) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 delta))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64) (neg.f64 (cos.f64 delta))) (*.f64 (sin.f64 delta) (neg.f64 (cos.f64 theta)))) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(fma.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (neg.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (cos.f64 delta))
(- (+ (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)))))
(fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (fma.f64 (.f64 theta theta) #s(literal -1/24 binary64) #s(literal 1/2 binary64))) (cos.f64 delta)))
(- (+ (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)))))
(-.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(fma.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))
(* delta (+ theta (* -1/6 (pow theta 3))))
(.f64 delta (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* delta (+ theta (+ (* -1/6 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* -1/6 (pow theta 3)))))
(.f64 delta (fma.f64 #s(literal -1/6 binary64) (fma.f64 (.f64 delta delta) (fma.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64))) theta) (.f64 theta (.f64 theta theta))) theta))
(* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* 1/120 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))))))))
(.f64 delta (fma.f64 (.f64 delta delta) (.f64 (fma.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64))) theta) (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64))) (fma.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64))) theta)))
(* delta (+ theta (+ (* -1/6 (pow theta 3)) (* (pow delta 2) (+ (* -1/6 (+ theta (* -1/6 (pow theta 3)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (+ theta (* -1/6 (pow theta 3))))) (* 1/120 (+ theta (* -1/6 (pow theta 3)))))))))))
(.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64))) theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (fma.f64 (.f64 theta (.f64 theta theta)) #s(literal 1/36 binary64) (.f64 theta #s(literal -1/6 binary64)))) (fma.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64))) theta)))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* (sin delta) (+ theta (* -1/6 (pow theta 3))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* -1/6 (* (pow theta 3) (sin delta)))
(.f64 (sin.f64 delta) (.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64)))))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
(* (pow theta 3) (+ (* -1/6 (sin delta)) (/ (sin delta) (pow theta 2))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
(* -1/6 (* (pow theta 3) (sin delta)))
(.f64 (sin.f64 delta) (.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64)))))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
(* -1 (* (pow theta 3) (+ (* -1 (/ (sin delta) (pow theta 2))) (* 1/6 (sin delta)))))
(.f64 (.f64 theta (.f64 theta theta)) (fma.f64 (sin.f64 delta) #s(literal -1/6 binary64) (/.f64 (sin.f64 delta) (.f64 theta theta))))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(* -1/6 (pow theta 2))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* 1/2 (cos (* 2 phi1)))))
(fma.f64 (.f64 delta delta) (-.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (+.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/48 binary64))) (-.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (fma.f64 (+.f64 #s(literal 1/1440 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/1440 binary64))) (neg.f64 (.f64 delta delta)) (+.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/48 binary64)))) (-.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 phi1 #s(literal -2 binary64))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(.f64 (-.f64 #s(literal 1 binary64) (.f64 phi1 phi1)) (cos.f64 delta))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))
(fma.f64 (.f64 phi1 phi1) (.f64 (cos.f64 delta) (fma.f64 phi1 (*.f64 phi1 #s(literal 1/3 binary64)) #s(literal -1 binary64))) (cos.f64 delta))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))
(fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (.f64 (cos.f64 delta) (fma.f64 (.f64 phi1 phi1) #s(literal -2/45 binary64) #s(literal 1/3 binary64))) (neg.f64 (cos.f64 delta))) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(fma.f64 (cos.f64 delta) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal -1/2 binary64)) (cos.f64 delta))
1
#s(literal 1 binary64)
(+ 1 (* -1 (pow phi1 2)))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(fma.f64 phi1 (.f64 phi1 (fma.f64 phi1 (.f64 phi1 #s(literal 1/3 binary64)) #s(literal -1 binary64))) #s(literal 1 binary64))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -2/45 binary64) #s(literal 1/3 binary64)) #s(literal -1 binary64)) #s(literal 1 binary64))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 1/2 binary64))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 theta (*.f64 theta #s(literal -1/6 binary64))) theta))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (*.f64 theta theta))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(.f64 theta (fma.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #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))) (.f64 (.f64 theta theta) (.f64 theta theta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 (sin.f64 theta) (fma.f64 delta (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) delta))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (.f64 (sin.f64 theta) (+.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (.f64 delta delta) (.f64 (*.f64 delta delta) #s(literal 1/120 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))))))))
(.f64 delta (fma.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 theta) (.f64 (.f64 (sin.f64 theta) (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (.f64 delta delta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))

rewrite424.0ms (2.4%)

Memory

19.8MiB live, 533.4MiB allocated

Algorithm

1×	batch-egg-rewrite

Rules

5 346×	`lower-*.f32`
5 310×	`lower-*.f64`
4 056×	`lower-fma.f32`
4 048×	`lower-fma.f64`
2 624×	`lower-/.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	92	798
0	151	777
1	513	739
2	3417	739
0	8704	719

Stop Event

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

Counts

31 → 278

Calls

Call 1

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

Outputs
(+.f64 (cos.f64 delta) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))))
(+.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta))) (cos.f64 delta))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))))
(fma.f64 (cos.f64 delta) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (cos.f64 delta))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (cos.f64 delta))
(fma.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (cos.f64 delta) (cos.f64 delta))
(fma.f64 (neg.f64 (cos.f64 delta)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (*.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 delta)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))) (.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))) (.f64 (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (*.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64)))
(pow.f64 (/.f64 (fma.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (*.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta delta)))) (pow.f64 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (cos.f64 delta))))
(*.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) lambda1) (.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1))))))))
(atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (fma.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (sin.f64 phi1)))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta 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 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))) (/.f64 (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (-.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (-.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (-.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))) (.f64 (-.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (-.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (-.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta))))
#s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) lambda1) (.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64)))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64)))))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) lambda1) (.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64)))))) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64)))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))))))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64)))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) lambda1) (.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))))))
(atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64)))))
(.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (*.f64 (sin.f64 delta) theta)))
(.f64 #s(approx ( (sin delta) (sin theta)) (*.f64 (sin.f64 delta) theta)) (cos.f64 phi1))
#s(approx (* (sin delta) (sin theta)) (*.f64 (sin.f64 delta) theta))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))))
(pow.f64 (/.f64 (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) lambda1) (.f64 lambda1 lambda1)) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) lambda1) (*.f64 lambda1 lambda1))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))))
(atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))
(.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))))
(.f64 #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))) (cos.f64 phi1))
#s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta)))
(+.f64 phi1 phi1)
(-.f64 (/.f64 (.f64 phi1 phi1) #s(literal 0 binary64)) (/.f64 (.f64 phi1 phi1) #s(literal 0 binary64)))
(/.f64 #s(literal 1 binary64) (+.f64 phi1 phi1))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi1 phi1 #s(literal 0 binary64)) (*.f64 (fma.f64 phi1 phi1 #s(literal 0 binary64)) (+.f64 phi1 phi1))))
(/.f64 #s(literal 0 binary64) #s(literal 0 binary64))
(/.f64 (*.f64 (fma.f64 phi1 phi1 #s(literal 0 binary64)) (+.f64 phi1 phi1)) (fma.f64 phi1 phi1 #s(literal 0 binary64)))
(/.f64 (neg.f64 (*.f64 (fma.f64 phi1 phi1 #s(literal 0 binary64)) (+.f64 phi1 phi1))) (neg.f64 (fma.f64 phi1 phi1 #s(literal 0 binary64))))
(/.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 0 binary64)) (.f64 #s(literal 0 binary64) (.f64 phi1 phi1))) #s(literal 0 binary64))
(pow.f64 (+.f64 phi1 phi1) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi1 phi1 #s(literal 0 binary64)) (*.f64 (fma.f64 phi1 phi1 #s(literal 0 binary64)) (+.f64 phi1 phi1))) #s(literal -1 binary64))
(*.f64 phi1 #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) phi1)
(*.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) #s(literal 0 binary64)))
(.f64 (.f64 (fma.f64 phi1 phi1 #s(literal 0 binary64)) (+.f64 phi1 phi1)) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 phi1 #s(literal 0 binary64))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda1 lambda1 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) lambda1))) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) lambda1))))
(/.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))))
(/.f64 (neg.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 lambda1 lambda1 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) lambda1)))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))))))
(pow.f64 (/.f64 (fma.f64 lambda1 lambda1 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) lambda1))) (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (fma.f64 lambda1 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) lambda1)))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))))))
(atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta 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 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) #s(literal 3 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(-.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (+.f64 phi1 phi1))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) #s(literal 1/2 binary64))
(fma.f64 (neg.f64 (cos.f64 (+.f64 phi1 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64))) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 #s(literal 1/4 binary64) (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))) (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64)))))
(/.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi1 phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (neg.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64)))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))))) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (neg.f64 (sin.f64 phi1)) #s(literal 2 binary64))
(pow.f64 (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64))) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))))) #s(literal -1 binary64))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(*.f64 (neg.f64 (sin.f64 phi1)) (neg.f64 (sin.f64 phi1)))
(.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/4 binary64)))))
(.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))))) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/4 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))))) (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (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 theta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))
(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (cos.f64 theta) (*.f64 phi1 (neg.f64 delta)) #s(literal 1 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))
(+.f64 (.f64 (sin.f64 delta) theta) (.f64 (sin.f64 delta) (.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)))))
(+.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))) (*.f64 (sin.f64 delta) theta))
(fma.f64 (sin.f64 delta) theta (.f64 (sin.f64 delta) (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))))
(fma.f64 (sin.f64 delta) (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta))) (.f64 (sin.f64 delta) theta))
(fma.f64 theta (sin.f64 delta) (.f64 (sin.f64 delta) (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))))
(fma.f64 theta (.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (sin.f64 delta)) (.f64 (sin.f64 delta) theta))
(fma.f64 (.f64 (sin.f64 delta) theta) (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (.f64 (sin.f64 delta) theta))
(fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (.f64 (sin.f64 delta) theta) (.f64 (sin.f64 delta) theta))
(fma.f64 (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta))) (sin.f64 delta) (.f64 (sin.f64 delta) theta))
(fma.f64 (.f64 theta #s(literal -1/6 binary64)) (.f64 (.f64 theta theta) (sin.f64 delta)) (.f64 (sin.f64 delta) theta))
(fma.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))) theta (.f64 (sin.f64 delta) theta))
(fma.f64 (.f64 (sin.f64 delta) (.f64 theta #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (sin.f64 delta) theta))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 delta) theta) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 delta) theta) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))) (.f64 (sin.f64 delta) theta)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) theta) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))) (.f64 (sin.f64 delta) theta)))
(/.f64 (.f64 (sin.f64 delta) (fma.f64 (.f64 (.f64 theta (.f64 theta theta)) #s(literal -1/216 binary64)) (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) (.f64 theta (.f64 theta theta)))) (fma.f64 theta (-.f64 theta (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))) (.f64 (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) #s(literal 1/36 binary64))))
(/.f64 (.f64 (sin.f64 delta) (fma.f64 (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) #s(literal 1/36 binary64) (neg.f64 (.f64 theta theta)))) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) (neg.f64 theta)))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 theta (.f64 theta theta)) #s(literal -1/216 binary64)) (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) (.f64 theta (.f64 theta theta))) (sin.f64 delta)) (fma.f64 theta (-.f64 theta (.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))) (.f64 (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) #s(literal 1/36 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 theta (.f64 theta theta)) (.f64 theta (.f64 theta theta))) #s(literal 1/36 binary64) (neg.f64 (.f64 theta theta))) (sin.f64 delta)) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) (neg.f64 theta)))
(.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta))
(.f64 (fma.f64 theta (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) theta) (sin.f64 delta))
(.f64 theta (.f64 theta #s(literal -1/6 binary64)))
(.f64 #s(literal -1/6 binary64) (.f64 theta theta))
(.f64 (.f64 theta theta) #s(literal -1/6 binary64))
(.f64 (.f64 theta #s(literal -1/6 binary64)) theta)
#s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1))) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 phi1)) #s(literal 2 binary64)))
(-.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/4 binary64))) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/4 binary64))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 #s(literal 1/4 binary64) (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))) (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/4 binary64)))))
(/.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (neg.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/4 binary64)))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1)))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.f64 (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/4 binary64))) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64)) (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64))) #s(literal -1 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal 1/4 binary64)) (.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/4 binary64)))))
(.f64 (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi1))))) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))

eval201.0ms (1.1%)

Memory: -21.7MiB live, 374.0MiB allocated
Compiler: Compiled 47 585 to 2 020 computations (95.8% saved)

prune320.0ms (1.8%)

Memory

25.5MiB live, 496.5MiB allocated

Pruning

56 alts after pruning (50 fresh and 6 done)

	Pruned	Kept	Total
New	1 296	14	1 310
Fresh	8	36	44
Picked	2	3	5
Done	0	3	3
Total	1 306	56	1 362

Accuracy

100.0%

Counts

1 362 → 56

Alt Table

Click to see full alt table

Status	Accuracy	Program
	88.8%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)
✓	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	94.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #s(approx ( (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))
	92.4%	(+.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))))))
	80.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	80.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #s(approx ( (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
	89.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	85.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal 1/2 binary64) (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 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)))) #s(literal 1/2 binary64))))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64)))))
	80.4%	(+.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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	79.9%	(+.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) (fma.f64 delta #s(approx ( (cos theta) (neg (sin phi1))) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
	80.0%	(+.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))))))
✓	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	70.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (.f64 theta #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (sin.f64 delta) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
	63.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
	65.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.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) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
	67.0%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
✓	64.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
	59.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
	66.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
	50.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 (.f64 theta theta) #s(literal 1/120 binary64))))))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	70.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
	60.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) (+ (* theta (* -1/6 (* theta theta))) theta)) (.f64 (sin.f64 delta) (.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64))))))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
	63.7%	(+.f64 lambda1 (atan2.f64 #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 delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
	74.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	75.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	81.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
✓	86.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	70.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
	73.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	72.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	66.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
	72.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	73.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	57.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	73.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	74.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
✓	75.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	24.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 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta phi1)))))))
	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
	30.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
	24.6%	#s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	24.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (/.f64 (.f64 (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta))) (sin.f64 phi1)) (sin.f64 (-.f64 phi1 delta)))))))
✓	25.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	25.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
	12.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	21.6%	#s(approx (+ 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (cos.f64 delta))))
	19.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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
	19.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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))

Compiler

Compiled 3 997 to 1 399 computations (65% saved)

regimes186.0ms (1.1%)

Memory

4.0MiB live, 354.2MiB allocated

Counts

90 → 1

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #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 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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 delta) theta)) (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 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 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (fma.f64 (fma.f64 delta (.f64 delta #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) (.f64 delta (.f64 delta delta)) 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 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #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))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (pow.f64 (cos.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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) (+ (* theta (* -1/6 (* theta theta))) theta)) (.f64 (sin.f64 delta) (.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64))))))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (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)) (-.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))))))
#s(approx (+ 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 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.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) (fma.f64 delta #s(approx ( (cos theta) (neg (sin phi1))) (neg.f64 (sin.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)))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (.f64 theta #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (sin.f64 delta) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 (.f64 theta theta) #s(literal 1/120 binary64))))))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.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))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #s(approx ( (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) theta (.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.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))))))))) (atan2.f64 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.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) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (*.f64 (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 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (/.f64 (.f64 (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta))) (sin.f64 phi1)) (sin.f64 (-.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal 1/2 binary64) (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 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)))) #s(literal 1/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 (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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.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) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.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) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #s(approx ( (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)) (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
(+.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)))))) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (.f64 delta (sin.f64 phi1)) (.f64 (fma.f64 delta (.f64 delta #s(literal -1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (neg.f64 (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))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (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) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (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 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (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))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (*.f64 (cos.f64 delta) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 (-.f64 (cos.f64 delta) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) (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) (.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)))))))))

Outputs

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

Calls

7 calls:

31.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))))))))
28.0ms	theta
25.0ms	phi1
24.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	delta

Results

Accuracy	Segments	Branch
99.9%	1	`lambda1`
99.9%	1	`phi1`
99.9%	1	`phi2`
99.9%	1	`delta`
99.9%	1	`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	`(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 104 to 70 computations (32.7% saved)

regimes150.0ms (0.9%)

Memory

2.3MiB live, 234.2MiB allocated

Counts

74 → 1

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #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 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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 delta) theta)) (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 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 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (fma.f64 (fma.f64 delta (.f64 delta #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) (.f64 delta (.f64 delta delta)) 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 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #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))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (pow.f64 (cos.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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) (+ (* theta (* -1/6 (* theta theta))) theta)) (.f64 (sin.f64 delta) (.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64))))))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (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)) (-.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))))))
#s(approx (+ 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 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.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) (fma.f64 delta #s(approx ( (cos theta) (neg (sin phi1))) (neg.f64 (sin.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)))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (.f64 theta #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (sin.f64 delta) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 (.f64 theta theta) #s(literal 1/120 binary64))))))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.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))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #s(approx ( (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) theta (.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.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))))))))) (atan2.f64 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.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) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (*.f64 (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 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (/.f64 (.f64 (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta))) (sin.f64 phi1)) (sin.f64 (-.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal 1/2 binary64) (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 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)))) #s(literal 1/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 (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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.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) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.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) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta))) #s(approx ( (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)) (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (fma.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (neg.f64 (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)))))
(+.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)))))) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (.f64 delta (sin.f64 phi1)) (.f64 (fma.f64 delta (.f64 delta #s(literal -1/2 binary64)) #s(literal 1 binary64)) (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) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))

Calls

7 calls:

24.0ms	phi2
21.0ms	theta
21.0ms	lambda1
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	phi1

Results

Accuracy	Segments	Branch
94.0%	1	`lambda1`
94.0%	1	`phi1`
94.0%	1	`phi2`
94.0%	1	`delta`
94.0%	1	`theta`
94.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)))))))))`
94.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))))))))`

Compiler

Compiled 104 to 70 computations (32.7% saved)

regimes146.0ms (0.8%)

Memory

-35.7MiB live, 269.1MiB allocated

Counts

69 → 1

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #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 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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 delta) theta)) (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 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 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (fma.f64 (fma.f64 delta (.f64 delta #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) (.f64 delta (.f64 delta delta)) 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 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #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))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (pow.f64 (cos.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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) (+ (* theta (* -1/6 (* theta theta))) theta)) (.f64 (sin.f64 delta) (.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64))))))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (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)) (-.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))))))
#s(approx (+ 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 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.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) (fma.f64 delta #s(approx ( (cos theta) (neg (sin phi1))) (neg.f64 (sin.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)))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (.f64 theta #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (sin.f64 delta) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 (.f64 theta theta) #s(literal 1/120 binary64))))))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.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))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #s(approx ( (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) theta (.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.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))))))))) (atan2.f64 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.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) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (*.f64 (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 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (/.f64 (.f64 (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta))) (sin.f64 phi1)) (sin.f64 (-.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal 1/2 binary64) (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 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)))) #s(literal 1/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 (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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.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) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (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) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))))

Calls

7 calls:

28.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))))))))
21.0ms	phi2
19.0ms	theta
19.0ms	delta
19.0ms	phi1

Results

Accuracy	Segments	Branch
94.0%	1	`lambda1`
94.0%	1	`phi2`
94.0%	1	`delta`
94.0%	1	`theta`
94.0%	1	`phi1`
94.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)))))))))`
94.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))))))))`

Compiler

Compiled 104 to 70 computations (32.7% saved)

regimes141.0ms (0.8%)

Memory

19.6MiB live, 253.2MiB allocated

Counts

68 → 1

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #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 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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 delta) theta)) (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 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 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (fma.f64 (fma.f64 delta (.f64 delta #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) (.f64 delta (.f64 delta delta)) 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 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #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))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (pow.f64 (cos.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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) (+ (* theta (* -1/6 (* theta theta))) theta)) (.f64 (sin.f64 delta) (.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64))))))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (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)) (-.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))))))
#s(approx (+ 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 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta 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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.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) (fma.f64 delta #s(approx ( (cos theta) (neg (sin phi1))) (neg.f64 (sin.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)))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (.f64 theta #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (sin.f64 delta) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 (.f64 theta theta) #s(literal 1/120 binary64))))))) (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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.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))))))) (.f64 (cos.f64 phi1) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) #s(approx ( (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) ( (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 delta (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) theta (.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) (fma.f64 delta (.f64 (cos.f64 theta) (neg.f64 (sin.f64 phi1))) (cos.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.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))))))))) (atan2.f64 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.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) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (*.f64 (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 #s(approx (- (cos delta) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (/.f64 (.f64 (.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 phi1 delta))) (sin.f64 phi1)) (sin.f64 (-.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal 1/2 binary64) (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 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)))) #s(literal 1/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 (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 #s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (fma.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.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))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.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:

21.0ms	theta
21.0ms	phi1
21.0ms	lambda1
19.0ms	phi2
19.0ms	delta

Results

Accuracy	Segments	Branch
92.4%	1	`lambda1`
92.4%	1	`phi1`
92.4%	1	`phi2`
92.4%	1	`delta`
92.4%	1	`theta`
92.4%	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)))))))))`
92.4%	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 104 to 70 computations (32.7% saved)

regimes88.0ms (0.5%)

Memory

15.6MiB live, 219.4MiB allocated

Counts

40 → 3

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #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 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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 delta) theta)) (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 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 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (fma.f64 (fma.f64 delta (.f64 delta #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) (.f64 delta (.f64 delta delta)) 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 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #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))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (pow.f64 (cos.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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) #s(approx (* (sin delta) (+ (* theta (* -1/6 (* theta theta))) theta)) (.f64 (sin.f64 delta) (.f64 theta (.f64 theta (.f64 theta #s(literal -1/6 binary64))))))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (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 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/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

7 calls:

14.0ms	phi1
13.0ms	theta
12.0ms	phi2
12.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))))))))
11.0ms	delta

Results

Accuracy	Segments	Branch
88.8%	1	`lambda1`
88.8%	1	`phi2`
88.8%	1	`phi1`
92.6%	3	`delta`
88.8%	1	`theta`
88.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)))))))))`
88.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 104 to 70 computations (32.7% saved)

regimes21.0ms (0.1%)

Memory

6.1MiB live, 44.1MiB allocated

Counts

29 → 1

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #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 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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 delta) theta)) (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 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 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (fma.f64 (fma.f64 delta (.f64 delta #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) (.f64 delta (.f64 delta delta)) 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 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (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))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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))))

Calls

2 calls:

11.0ms	delta
8.0ms	phi1

Results

Accuracy	Segments	Branch
88.8%	1	`phi1`
88.8%	1	`delta`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes61.0ms (0.3%)

Memory

-34.9MiB live, 85.0MiB allocated

Counts

26 → 1

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #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 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (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 delta) theta)) (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))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 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 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #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 delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (fma.f64 (fma.f64 delta (.f64 delta #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) (.f64 delta (.f64 delta delta)) 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 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (neg.f64 delta) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) (fma.f64 (neg.f64 phi1) (fma.f64 delta (cos.f64 theta) phi1) #s(literal 1 binary64))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (cos.f64 delta))))

Outputs

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

Calls

7 calls:

10.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))))))))
9.0ms	lambda1
8.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	phi1
7.0ms	theta

Results

Accuracy	Segments	Branch
86.3%	1	`lambda1`
86.3%	1	`theta`
86.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)))))))))`
86.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))))))))`
86.3%	1	`phi2`
86.3%	1	`delta`
86.3%	1	`phi1`

Compiler

Compiled 104 to 70 computations (32.7% saved)

regimes25.0ms (0.1%)

Memory

11.5MiB live, 49.6MiB allocated

Counts

9 → 3

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #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 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 theta (.f64 theta #s(literal -1/6 binary64)) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

Outputs

(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 #s(approx (sin delta) (fma.f64 (*.f64 delta delta) (*.f64 (fma.f64 (*.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 theta (*.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 theta theta) #s(literal 1 binary64)) (*.f64 (*.f64 theta theta) (*.f64 #s(literal 1/120 binary64) (*.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 #s(approx (sin delta) (fma.f64 delta (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

Calls

7 calls:

4.0ms	phi1
4.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)))))))))
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))))))))
3.0ms	theta
3.0ms	delta

Results

Accuracy	Segments	Branch
75.7%	1	`lambda1`
75.7%	1	`phi1`
82.5%	3	`delta`
79.6%	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)))))))))`
80.0%	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))))))))`
75.7%	1	`phi2`
82.6%	3	`theta`

Compiler

Compiled 104 to 70 computations (32.7% saved)

regimes6.0ms (0%)

Memory

16.8MiB live, 16.8MiB allocated

Counts

7 → 3

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) (fma.f64 theta (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #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 delta) (fma.f64 theta (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (* (cos phi1) (+ (* delta (* (cos theta) (neg (sin phi1)))) (cos phi1))) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

Outputs

(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 (sin.f64 delta) theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 #s(approx (sin delta) (fma.f64 (*.f64 delta delta) (*.f64 (fma.f64 (*.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

Calls

2 calls:

3.0ms	delta
3.0ms	theta

Results

Accuracy	Segments	Branch
82.5%	3	`delta`
82.4%	3	`theta`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes3.0ms (0%)

Memory

5.6MiB live, 5.6MiB allocated

Counts

6 → 3

Calls

Call 1

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

Outputs

(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 (sin.f64 delta) theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (*.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

Calls

1 calls:

2.0ms

delta

Results

Accuracy	Segments	Branch
82.4%	3	`delta`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes7.0ms (0%)

Memory

-24.7MiB live, 13.6MiB allocated

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Outputs

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

Calls

4 calls:

2.0ms	theta
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))))))))
1.0ms	delta

Results

Accuracy	Segments	Branch
75.7%	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)))))))))`
75.7%	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))))))))`
75.7%	1	`theta`
75.7%	1	`delta`

Compiler

Compiled 86 to 55 computations (36% saved)

bsearch129.0ms (0.7%)

Memory

-6.3MiB live, 111.8MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
48.0ms	5.843289227920256e-33	1.920739924935332e-29
71.0ms	-102.46322247300564	-1.1788742399842377e-7

Samples

92.0ms

272×

valid

Compiler

Compiled 806 to 575 computations (28.7% saved)

Precisions

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

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

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

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

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

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

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

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

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

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

bsearch84.0ms (0.5%)

Memory

27.6MiB live, 143.0MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
46.0ms	4.5404715464867035e+30	1.3866667181234805e+35
33.0ms	-3.285503598842154e+38	-3.6657988865785374e+37

Samples

69.0ms

224×

valid

Compiler

Compiled 911 to 533 computations (41.5% saved)

Precisions

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

ival-sin: 26.0ms (42.8% of total)

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

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

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

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

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

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

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

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

bsearch135.0ms (0.8%)

Memory

-14.6MiB live, 110.2MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
59.0ms	8482570248479.134	8.324779495689437e+19
70.0ms	-9.524917126463553e+28	-1.7406451723673587e+21

Samples

104.0ms

288×

valid

Compiler

Compiled 905 to 535 computations (40.9% saved)

Precisions

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

ival-cos: 42.0ms (45.5% of total)

ival-sin: 27.0ms (29.3% of total)

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

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

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

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

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

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

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

bsearch2.0ms (0%)

Memory

2.1MiB live, 2.1MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	8482570248479.134	8.324779495689437e+19
1.0ms	-9.524917126463553e+28	-1.7406451723673587e+21

Compiler

Compiled 689 to 427 computations (38% saved)

simplify19.0ms (0.1%)

Memory

19.2MiB live, 19.2MiB allocated

Algorithm

1×	egg-herbie

Rules

66×	`*-commutative_binary64`
58×	`+-commutative_binary64`
30×	`sub-neg_binary64`
22×	`neg-sub0_binary64`
22×	`neg-mul-1_binary64`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	148	916
1	201	915
2	229	915
3	252	915
4	267	915
5	274	915
6	276	915

Stop Event

1×

saturated

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (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 (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.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) #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))))))
(if (<=.f64 delta #s(literal -700976274800963/9223372036854775808 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 6779426540353309/356811923176489970264571492362373784095686656 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/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))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(if (<=.f64 theta #s(literal -36999999999999999355954293993518399488 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 4599999999999999922584288231424 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #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 -20999999999999997902848 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 530000000000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 -20999999999999997902848 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 530000000000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (.f64 (+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 phi1)) #s(literal 1/2 binary64))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (fma.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (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 (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))))))))
(+.f64 lambda1 (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.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) #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 (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)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(if (<=.f64 delta #s(literal -700976274800963/9223372036854775808 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 6779426540353309/356811923176489970264571492362373784095686656 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)) #s(literal 1/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 -700976274800963/9223372036854775808 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #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 6779426540353309/356811923176489970264571492362373784095686656 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (* (cos phi1) (* (sin delta) (cos theta))) (sin phi1)))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #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))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(if (<=.f64 theta #s(literal -36999999999999999355954293993518399488 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 4599999999999999922584288231424 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (<=.f64 theta #s(literal -36999999999999999355954293993518399488 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 delta (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64))) delta)))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 4599999999999999922584288231424 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (.f64 (sin.f64 delta) (+.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (.f64 theta theta) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) (fma.f64 delta (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) delta)))) #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 -20999999999999997902848 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 530000000000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) delta) delta)) (sin.f64 theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 -20999999999999997902848 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 530000000000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) (fma.f64 (.f64 delta delta) (.f64 delta (fma.f64 (.f64 delta delta) #s(literal 1/120 binary64) #s(literal -1/6 binary64))) delta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 -20999999999999997902848 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 530000000000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 delta) theta))) #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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

soundness1.6s (9.2%)

Memory

23.2MiB live, 1 389.4MiB allocated

Rules

16 384×	`lower-fma.f64`
16 384×	`lower-fma.f32`
15 894×	`lower-fma.f64`
15 894×	`lower-fma.f32`
13 560×	`lower-fma.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	89	838
0	145	818
1	495	783
2	3354	783
0	8268	762
0	22	147
0	40	139
1	120	139
2	846	139
0	8744	133
0	67	590
0	109	567
1	412	529
2	2764	529
0	8271	529
0	281	5807
1	976	5684
2	3425	5625
3	5997	5582
0	8048	5302
0	499	20847
1	1725	20374
2	6027	20231
0	8242	19249
0	517	22713
1	1849	21931
2	6291	21712
0	8786	20728
0	92	798
0	151	777
1	513	739
2	3417	739
0	8704	719

Stop Event

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

Compiler

Compiled 1 344 to 651 computations (51.6% saved)

preprocess105.0ms (0.6%)

Memory: 16.5MiB live, 255.6MiB allocated
Remove: (abs phi2)
Compiler: Compiled 1 342 to 578 computations (56.9% saved)

end0.0ms (0%)

Memory: 0.0MiB live, 0.0MiB allocated

analyze1.2s (6.8%)

sample2.9s (16.7%)

preprocess264.0ms (1.5%)

explain496.0ms (2.8%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify84.0ms (0.5%)

localize121.0ms (0.7%)

series60.0ms (0.3%)

simplify652.0ms (3.7%)

rewrite440.0ms (2.5%)

eval137.0ms (0.8%)

prune130.0ms (0.7%)

simplify516.0ms (2.9%)

localize474.0ms (2.7%)

series105.0ms (0.6%)

simplify568.0ms (3.2%)

rewrite376.0ms (2.1%)

eval307.0ms (1.8%)

prune359.0ms (2%)

simplify377.0ms (2.2%)

localize762.0ms (4.4%)

series112.0ms (0.6%)

simplify703.0ms (4%)

rewrite362.0ms (2.1%)

eval246.0ms (1.4%)

prune341.0ms (1.9%)

simplify462.0ms (2.6%)

localize463.0ms (2.6%)

series77.0ms (0.4%)

simplify528.0ms (3%)

rewrite424.0ms (2.4%)

eval201.0ms (1.1%)

prune320.0ms (1.8%)

regimes186.0ms (1.1%)

regimes150.0ms (0.9%)

regimes146.0ms (0.8%)

regimes141.0ms (0.8%)

regimes88.0ms (0.5%)

regimes21.0ms (0.1%)

regimes61.0ms (0.3%)

regimes25.0ms (0.1%)

regimes6.0ms (0%)

regimes3.0ms (0%)

regimes7.0ms (0%)

bsearch129.0ms (0.7%)

bsearch84.0ms (0.5%)

bsearch135.0ms (0.8%)

bsearch2.0ms (0%)

simplify19.0ms (0.1%)

soundness1.6s (9.2%)

preprocess105.0ms (0.6%)

end0.0ms (0%)

Profiling