Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze1.4s (10.3%)

Memory

64.2MiB live, 1 150.9MiB allocated; 220ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.8%	0.2%	0%	0%	0%	0
0%	0%	99.8%	0.2%	0%	0%	0%	1
0%	0%	99.8%	0.2%	0%	0%	0%	2
0%	0%	99.8%	0.2%	0%	0%	0%	3
0%	0%	99.8%	0.2%	0%	0%	0%	4
0%	0%	99.8%	0.2%	0%	0%	0%	5
0%	0%	99.8%	0.2%	0%	0%	0%	6
0%	0%	99.8%	0.2%	0%	0%	0%	7
0%	0%	99.8%	0.2%	0%	0%	0%	8
0%	0%	99.8%	0.2%	0%	0%	0%	9
0%	0%	99.8%	0.2%	0%	0%	0%	10
1.6%	1.6%	98.2%	0.2%	0%	0%	0%	11
1.6%	1.6%	98.2%	0.2%	0%	0%	0%	12

Compiler

Compiled 35 to 25 computations (28.6% saved)

sample3.7s (28.3%)

Memory

-103.3MiB live, 2 118.5MiB allocated; 1.6s collecting garbage

Samples

3.1s

8 256×

valid

Precisions

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

ival-sin: 631.0ms (30.8% of total)

ival-mult: 550.0ms (26.8% of total)

ival-cos: 536.0ms (26.1% of total)

ival-asin: 127.0ms (6.2% of total)

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

ival-atan2: 66.0ms (3.2% of total)

ival-sub: 48.0ms (2.3% of total)

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

adjust: 3.0ms (0.1% of total)

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

Bogosity

explain364.0ms (2.8%)

Memory

19.7MiB live, 348.3MiB allocated; 22ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
5	1	(-1.2975893816288382e-92 6.35092479444147e+261 1.4205697953836925e+161 3.819211031730277e+305 -3.687787251918744e+89)	2	(-4.0962676912224735e+28 -8.093391122489892e+37 1.1730982723646832e+172 -2.0367361215905475e+151 0.8563407675930054)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 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	-	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`
0	0	-	0	-	`(cos.f64 theta)`
0	0	-	0	-	`theta`
0	0	-	0	-	`(sin.f64 theta)`
0	0	-	0	-	`(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))`
0	0	-	0	-	`(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))`
0	0	-	0	-	`delta`
0	0	-	0	-	`(sin.f64 phi1)`
0	0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 delta))`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
0	0	-	0	-	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`
0	0	-	0	-	`(*.f64 (sin.f64 theta) (sin.f64 delta))`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 delta))`
0	0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))`
0	0	-	0	-	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
0	0	-	0	-	`(sin.f64 delta)`
0	0	-	0	-	`(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))`
0	0	-	0	-	`(cos.f64 delta)`
0	0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`asin.f64`	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`	sensitivity	1	2
`-.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	3

Confusion

	Predicted +	Predicted -
+	0	1
-	2	253

Precision

0.0

Recall

0.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	0	1	0
-	2	4	249

Precision?

0.14285714285714285

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

133.0ms	510×	0	valid
4.0ms	2×	1	valid

Compiler

Compiled 431 to 73 computations (83.1% saved)

Precisions

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

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

ival-cos: 30.0ms (27.2% of total)

ival-mult: 23.0ms (20.8% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

preprocess196.0ms (1.5%)

Memory

25.8MiB live, 116.8MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

Stop Event

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

Calls

Call 1

Inputs

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

Outputs

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

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

Symmetry

(abs phi2)

Compiler

Compiled 33 to 23 computations (30.3% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

Status

Accuracy

Program

▶

99.8%

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

Compiler

Compiled 33 to 23 computations (30.3% saved)

simplify151.0ms (1.1%)

Memory

5.8MiB live, 93.7MiB allocated; 8ms collecting garbage

Localize:

Found 4 expressions of interest:

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

Iterations

Useful iterations: 0 (0.0ms)

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

Stop Event

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

Calls

Call 1

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

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

localize133.0ms (1%)

Memory

-52.7MiB live, 102.0MiB allocated; 22ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.17025375976844204	(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
accuracy	0.22265625	(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
accuracy	0.3341002912568932	(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
accuracy	0.4630043366096631	(-.f64 (cos.f64 delta) (.f64 (sin.f64 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

115.0ms	255×	0	valid
2.0ms	1×	1	valid

Compiler

Compiled 199 to 25 computations (87.4% saved)

Precisions

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

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

ival-add: 30.0ms (29.2% of total)

ival-cos: 14.0ms (13.6% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

series44.0ms (0.3%)

Memory

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

Counts

8 → 72

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)))))))
(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))))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))

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

Calls

15 calls:

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

simplify166.0ms (1.3%)

Memory

2.9MiB live, 139.7MiB allocated; 23ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	359	2871
1	1191	2706
2	5267	2676
0	8106	2523

Stop Event

1×	iter limit
1×	node limit

Counts

72 → 72

Calls

Call 1

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

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

rewrite202.0ms (1.5%)

Memory

2.8MiB live, 195.0MiB allocated; 15ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	22	150
0	40	142
1	133	142
2	1001	142
0	8752	136

Stop Event

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

Counts

8 → 164

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)))))))
(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))))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))

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

eval46.0ms (0.4%)

Memory: 0.8MiB live, 45.6MiB allocated; 5ms collecting garbage
Compiler: Compiled 16 510 to 1 665 computations (89.9% saved)

prune27.0ms (0.2%)

Memory

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

Pruning

24 alts after pruning (24 fresh and 0 done)

	Pruned	Kept	Total
New	212	24	236
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	213	24	237

Accuracy

99.9%

Counts

237 → 24

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
	88.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) phi1))) #s(literal 2 binary64)))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
▶	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 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
▶	92.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 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))))))))
	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 (sin.f64 (+.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
	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 (cos.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))))
	88.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
	93.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	95.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
	78.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
▶	80.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))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
	80.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
	88.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))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	32.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
▶	69.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))))))))) lambda1)

Compiler

Compiled 2 664 to 1 332 computations (50% saved)

simplify144.0ms (1.1%)

Memory

-8.5MiB live, 90.2MiB allocated; 10ms collecting garbage

Localize:

Found 17 expressions of interest:

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

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	78	1237
0	132	1233
1	231	1207
2	600	1203
3	2616	1202
4	7474	1202
0	8062	1194

Stop Event

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

Calls

Call 1

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

localize456.0ms (3.5%)

Memory

-11.7MiB live, 320.4MiB allocated; 36ms collecting garbage

Localize:

Found 17 expressions of interest:

New	Metric	Score
accuracy	0.37411889652663033	(pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))
accuracy	0.43595512698974637	(pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64))
accuracy	0.4630043366096631	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))))))
accuracy	8.19237720728298	(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (.f64 (sin.f64 delta) (cos.f64 phi1))))))
accuracy	0.17416000976844204	(*.f64 (cos.f64 theta) (sin.f64 delta))
accuracy	0.22265625	(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
accuracy	0.3341002912568932	(asin.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1))))
accuracy	0.4630043366096631	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
accuracy	0.15234375	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.15625	(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))
accuracy	0.25619125976844204	(*.f64 (cos.f64 phi1) (cos.f64 phi1))
accuracy	31.29534107118442	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))
accuracy	19.641685897107372	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
accuracy	0.22265625	(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
accuracy	0.3437957564934687	(acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))
accuracy	0.4630043366096631	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
accuracy	14.363549172435368	(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))

Samples

208.0ms	197×	0	valid
163.0ms	59×	1	valid

Compiler

Compiled 1 202 to 71 computations (94.1% saved)

Precisions

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

ival-sin: 73.0ms (24.3% of total)

ival-pow: 41.0ms (13.7% of total)

adjust: 37.0ms (12.3% of total)

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

ival-mult: 35.0ms (11.7% of total)

ival-acos: 23.0ms (7.7% of total)

ival-add: 13.0ms (4.3% of total)

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

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

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

ival-pow2: 6.0ms (2% of total)

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

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

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

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

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

exact: 0.0ms (0% of total)

series195.0ms (1.5%)

Memory

14.0MiB live, 148.5MiB allocated; 14ms collecting garbage

Counts

29 → 212

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

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))) lambda1)) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 1))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* -1 (* delta (* phi1 (cos theta)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* -1 (* delta (* phi1 (+ (* -1/2 (cos theta)) (* -1/6 (cos theta)))))) 1)))))))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 1))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (pow (cos delta) 2)) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* -1 (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* phi1 (- (* -1/3 (* phi1 (pow (cos delta) 2))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (* (pow (cos theta) 2) (pow (sin delta) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* -1/6 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* (pow phi1 2) (+ (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* 1/120 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* (pow phi1 2) (+ (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* 1/120 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (cos theta))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (* -1/6 (cos theta))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (* 1/12 (cos theta))))))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (+ (* 1/12 (cos theta)) (* (pow phi1 2) (+ (* -1/144 (cos theta)) (+ (* -1/240 (cos theta)) (+ (* -1/720 (cos theta)) (* -1/5040 (cos theta)))))))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -3/2 (* (cos theta) (sin delta))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos theta) (sin delta))) (* phi1 (- (/ (pow (cos delta) 3) (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1 (/ (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (* (cos delta) (- (* -3/2 (* (cos theta) (sin delta))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (/ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* phi1 (- (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))) (+ (* -3/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta)))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow (cos theta) 3) (pow (sin delta) 3))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* 7/8 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (* 7/8 (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (pow (cos delta) 3))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (cos delta) 3))) (pow (cos delta) 3)))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos delta) 3)) (* 13/120 (* (pow phi1 2) (pow (cos delta) 3))))) (pow (cos delta) 3)))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos delta) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (cos delta) 3))) (* 13/120 (pow (cos delta) 3)))))) (pow (cos delta) 3)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin phi1)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow (cos delta) 3) (pow (sin phi1) 3))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (+ (* delta (- (* -1 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (+ (* delta (- (* delta (+ (* -1 (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* -1 (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* delta (- (* delta (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* delta (- (* delta (+ (* -1 (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (sin phi1)))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (* -3/2 (sin phi1)) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (+ (* -3/2 (sin phi1)) (* delta (- (/ (* (pow (cos phi1) 3) (pow (cos theta) 3)) (pow (sin phi1) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -3/2 (sin phi1)) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))))))) (sin phi1))) (+ (* -1 (/ (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))) (sin phi1))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (sin phi1) 2))))))) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ 1 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1/2 (* -3/2 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ 1 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (- (+ (* -1 (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -3/2 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (sin phi1)))) (/ (* (pow (cos phi1) 3) (pow (cos theta) 3)) (sin phi1)))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1/2 (* -3/2 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (* (pow (cos phi1) 3) (pow (cos theta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (+ (* -1/2 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (pow (cos theta) 3))) (* 13/120 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (pow (cos theta) 3))) (* (pow delta 2) (+ (* -41/3024 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))) (* 13/120 (* (pow (cos phi1) 3) (pow (cos theta) 3))))))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (pow (sin phi1) 3)))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow delta 2) (pow (sin phi1) 3))) (pow (sin phi1) 3))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -3/2 (pow (sin phi1) 3)) (* 7/8 (* (pow delta 2) (pow (sin phi1) 3))))) (pow (sin phi1) 3))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -3/2 (pow (sin phi1) 3)) (* (pow delta 2) (+ (* -61/240 (* (pow delta 2) (pow (sin phi1) 3))) (* 7/8 (pow (sin phi1) 3)))))) (pow (sin phi1) 3))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (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))))))))) (pow (cos phi1) 2)))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (+ (* 1/2 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (+ (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin phi1))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1)))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin phi1)))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* 1/24 (* (cos phi1) (sin phi1))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* (pow theta 2) (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (+ (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (* -61/240 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (+ (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (+ (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -61/240 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (sin delta) 3))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* -3/2 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (sin delta) 3))) (* 7/8 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (sin delta) 3))) (* (pow theta 2) (+ (* -61/240 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (* 7/8 (* (pow (cos phi1) 3) (pow (sin delta) 3))))))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))

Calls

15 calls:

Time	Variable		Point	Expression
44.0ms	theta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (* (cos phi1) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))))) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))))))))) (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* (cos theta) (sin phi1)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (* (cos theta) (sin delta)) (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3))
27.0ms	theta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (* (cos phi1) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))))) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))))))))) (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* (cos theta) (sin phi1)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (* (cos theta) (sin delta)) (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3))
23.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (* (cos phi1) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))))) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))))))))) (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* (cos theta) (sin phi1)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (* (cos theta) (sin delta)) (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3))
21.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (* (cos phi1) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))))) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))))))))) (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* (cos theta) (sin phi1)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (* (cos theta) (sin delta)) (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3))
16.0ms	theta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (* (cos phi1) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))))) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))))))))) (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* (cos theta) (sin phi1)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (* (cos theta) (sin delta)) (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3))

simplify213.0ms (1.6%)

Memory

26.6MiB live, 203.9MiB allocated; 28ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1140	14821
1	3584	13957
0	8236	13421

Stop Event

1×	iter limit
1×	node limit

Counts

212 → 212

Calls

Call 1

Inputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))) lambda1)) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 1))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* -1 (* delta (* phi1 (cos theta)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* -1 (* delta (* phi1 (+ (* -1/2 (cos theta)) (* -1/6 (cos theta)))))) 1)))))))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 1))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (pow (cos delta) 2)) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* -1 (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* phi1 (- (* -1/3 (* phi1 (pow (cos delta) 2))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (* (pow (cos theta) 2) (pow (sin delta) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* -1/6 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* (pow phi1 2) (+ (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* 1/120 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* (pow phi1 2) (+ (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* 1/120 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (cos theta))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (* -1/6 (cos theta))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (* 1/12 (cos theta))))))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (+ (* 1/12 (cos theta)) (* (pow phi1 2) (+ (* -1/144 (cos theta)) (+ (* -1/240 (cos theta)) (+ (* -1/720 (cos theta)) (* -1/5040 (cos theta)))))))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -3/2 (* (cos theta) (sin delta))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos theta) (sin delta))) (* phi1 (- (/ (pow (cos delta) 3) (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1 (/ (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (* (cos delta) (- (* -3/2 (* (cos theta) (sin delta))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (/ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* phi1 (- (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))) (+ (* -3/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta)))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow (cos theta) 3) (pow (sin delta) 3))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* 7/8 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (* 7/8 (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (pow (cos delta) 3))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (cos delta) 3))) (pow (cos delta) 3)))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos delta) 3)) (* 13/120 (* (pow phi1 2) (pow (cos delta) 3))))) (pow (cos delta) 3)))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos delta) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (cos delta) 3))) (* 13/120 (pow (cos delta) 3)))))) (pow (cos delta) 3)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin phi1)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow (cos delta) 3) (pow (sin phi1) 3))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (+ (* delta (- (* -1 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (+ (* delta (- (* delta (+ (* -1 (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* -1 (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* delta (- (* delta (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* delta (- (* delta (+ (* -1 (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (sin phi1)))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (* -3/2 (sin phi1)) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (+ (* -3/2 (sin phi1)) (* delta (- (/ (* (pow (cos phi1) 3) (pow (cos theta) 3)) (pow (sin phi1) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -3/2 (sin phi1)) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))))))) (sin phi1))) (+ (* -1 (/ (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))) (sin phi1))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (sin phi1) 2))))))) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ 1 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1/2 (* -3/2 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ 1 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (- (+ (* -1 (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -3/2 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (sin phi1)))) (/ (* (pow (cos phi1) 3) (pow (cos theta) 3)) (sin phi1)))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1/2 (* -3/2 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (* (pow (cos phi1) 3) (pow (cos theta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (+ (* -1/2 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (pow (cos theta) 3))) (* 13/120 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (pow (cos theta) 3))) (* (pow delta 2) (+ (* -41/3024 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))) (* 13/120 (* (pow (cos phi1) 3) (pow (cos theta) 3))))))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (pow (sin phi1) 3)))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow delta 2) (pow (sin phi1) 3))) (pow (sin phi1) 3))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -3/2 (pow (sin phi1) 3)) (* 7/8 (* (pow delta 2) (pow (sin phi1) 3))))) (pow (sin phi1) 3))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -3/2 (pow (sin phi1) 3)) (* (pow delta 2) (+ (* -61/240 (* (pow delta 2) (pow (sin phi1) 3))) (* 7/8 (pow (sin phi1) 3)))))) (pow (sin phi1) 3))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (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))))))))) (pow (cos phi1) 2)))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (+ (* 1/2 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (+ (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin phi1))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1)))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin phi1)))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* 1/24 (* (cos phi1) (sin phi1))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* (pow theta 2) (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (+ (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (* -61/240 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (+ (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (+ (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -61/240 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (sin delta) 3))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* -3/2 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (sin delta) 3))) (* 7/8 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (sin delta) 3))) (* (pow theta 2) (+ (* -61/240 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (* 7/8 (* (pow (cos phi1) 3) (pow (sin delta) 3))))))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (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))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (sin.f64 phi1)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) (cos.f64 delta)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (sin.f64 phi1)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) (cos.f64 delta)))))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (sin.f64 phi1)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) (cos.f64 delta)))))) lambda1) lambda1 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))))) (.f64 (neg.f64 lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (sin.f64 phi1)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) (cos.f64 delta)))))) (neg.f64 lambda1)) #s(literal 1 binary64))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 1))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* -1 (* delta (* phi1 (cos theta)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (cos.f64 theta) phi1) (neg.f64 delta) #s(literal 1 binary64)))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (neg.f64 (fma.f64 (cos.f64 theta) delta phi1)) phi1 #s(literal 1 binary64)))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* -1 (* delta (* phi1 (+ (* -1/2 (cos theta)) (* -1/6 (cos theta)))))) 1)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (fma.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 theta) #s(literal -2/3 binary64)) phi1) (neg.f64 delta)) #s(literal 1 binary64)) phi1 (.f64 (neg.f64 delta) (cos.f64 theta))) phi1 #s(literal 1 binary64)))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 1))
#s(approx (* (cos phi1) (cos phi1)) #s(literal 1 binary64))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (* (cos phi1) (cos phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (* (cos phi1) (cos phi1)) (fma.f64 (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (* (cos phi1) (cos phi1)) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -2/45 binary64) (.f64 phi1 phi1) #s(literal 1/3 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (.f64 (neg.f64 phi1) (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (pow (cos delta) 2)) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta))) phi1))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* -1 (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (.f64 (fma.f64 (fma.f64 (neg.f64 phi1) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) phi1 (.f64 (neg.f64 (cos.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta)))) phi1))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* phi1 (- (* -1/3 (* phi1 (pow (cos delta) 2))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (.f64 (fma.f64 (fma.f64 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) phi1)) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (cos.f64 delta))) phi1 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) phi1 (.f64 (neg.f64 (cos.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta)))) phi1))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (* (pow (cos theta) 2) (pow (sin delta) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (fma.f64 (neg.f64 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (fma.f64 (fma.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) phi1 (.f64 (neg.f64 (cos.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta)))) phi1 (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 delta)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) phi1 (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) phi1 (.f64 (neg.f64 (cos.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta)))) phi1 (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (sin.f64 phi1)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) (cos.f64 delta)))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (fma.f64 (neg.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (fma.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) (.f64 phi1 phi1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (fma.f64 #s(literal -1/120 binary64) (.f64 phi1 phi1) #s(literal 1/6 binary64))) (.f64 phi1 phi1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) phi1 (cos.f64 delta)))
#s(approx (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) phi1))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* -1/6 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) phi1))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* (pow phi1 2) (+ (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* 1/120 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) (.f64 (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (fma.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1) #s(literal -1/6 binary64))) (.f64 phi1 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) phi1))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* (pow phi1 2) (+ (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* 1/120 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))) (.f64 phi1 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))) phi1))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (-.f64 (.f64 (neg.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (neg.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (cos.f64 delta)) phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (cos theta))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) (*.f64 (cos.f64 theta) phi1))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (* -1/6 (cos theta))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) (.f64 (fma.f64 (.f64 (cos.f64 theta) #s(literal -2/3 binary64)) (*.f64 phi1 phi1) (cos.f64 theta)) phi1))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (* 1/12 (cos theta))))))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) #s(literal 2/15 binary64)) (.f64 phi1 phi1) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (*.f64 phi1 phi1) (cos.f64 theta)) phi1))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (+ (* 1/12 (cos theta)) (* (pow phi1 2) (+ (* -1/144 (cos theta)) (+ (* -1/240 (cos theta)) (+ (* -1/720 (cos theta)) (* -1/5040 (cos theta)))))))))))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (fma.f64 (cos.f64 theta) #s(literal 2/15 binary64) (.f64 (fma.f64 #s(literal -1/144 binary64) (cos.f64 theta) (.f64 (cos.f64 theta) #s(literal -29/5040 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (*.f64 phi1 phi1) (cos.f64 theta)) phi1))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (-.f64 (.f64 (neg.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (neg.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) (cos.f64 delta)) phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))) (asin.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/3 binary64) phi1) (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64)))) phi1 (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1)))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -3/2 (* (cos theta) (sin delta))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) #s(literal 0 binary64)) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos theta) (sin delta))) (* phi1 (- (/ (pow (cos delta) 3) (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1 (/ (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (* (cos delta) (- (* -3/2 (* (cos theta) (sin delta))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (/ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (fma.f64 (fma.f64 (-.f64 (fma.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))) (+.f64 (/.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (neg.f64 (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) #s(literal 0 binary64)) (cos.f64 delta)))) (.f64 (cos.f64 theta) (sin.f64 delta))) (/.f64 (.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) phi1)) (fma.f64 (neg.f64 (sin.f64 delta)) (cos.f64 theta) #s(literal 0 binary64))) phi1 (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (fma.f64 (-.f64 (.f64 (neg.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* phi1 (- (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))) (+ (* -3/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (fma.f64 (fma.f64 (fma.f64 (-.f64 (fma.f64 (neg.f64 (sin.f64 delta)) (cos.f64 theta) #s(literal 0 binary64)) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -5/3 binary64))) phi1 (neg.f64 (cos.f64 delta))) phi1 (*.f64 (neg.f64 (sin.f64 delta)) (cos.f64 theta))) phi1 (cos.f64 delta)))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow (cos theta) 3) (pow (sin delta) 3))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* 7/8 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 7/8 binary64) (.f64 phi1 phi1) #s(literal -3/2 binary64))) (.f64 phi1 phi1) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (* 7/8 (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (fma.f64 (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 phi1 phi1) #s(literal 7/8 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -3/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))) (.f64 phi1 phi1) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (pow (cos delta) 3))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) (pow.f64 (*.f64 (cos.f64 delta) phi1) #s(literal 3 binary64)))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (cos delta) 3))) (pow (cos delta) 3)))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 phi1 #s(literal 3 binary64))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos delta) 3)) (* 13/120 (* (pow phi1 2) (pow (cos delta) 3))))) (pow (cos delta) 3)))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) (.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal 13/120 binary64) (.f64 phi1 phi1) #s(literal -1/2 binary64))) (.f64 phi1 phi1) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 phi1 #s(literal 3 binary64))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos delta) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (cos delta) 3))) (* 13/120 (pow (cos delta) 3)))))) (pow (cos delta) 3)))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) (.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 phi1 phi1) #s(literal 13/120 binary64))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))) (.f64 phi1 phi1) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 phi1 #s(literal 3 binary64))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (.f64 (cos.f64 phi1) (fma.f64 (neg.f64 delta) (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))))
#s(approx (* (cos phi1) (cos phi1)) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (cos phi1) (cos phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) (cos.f64 delta))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) (cos.f64 delta))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin phi1)))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) (cos.f64 delta)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (-.f64 (cos.f64 delta) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (sin.f64 phi1)) (-.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) (cos.f64 delta))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow (cos delta) 3) (pow (sin phi1) 3))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) (pow.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 delta delta) #s(literal 1 binary64)) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (.f64 delta delta) (sin.f64 theta)) delta))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (+ (* delta (- (* -1 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (fma.f64 (-.f64 (.f64 (neg.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (+ (* delta (- (* delta (+ (* -1 (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* -1 (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (fma.f64 (fma.f64 (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal -2/3 binary64)) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) delta (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 phi1)))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* delta (- (* delta (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (fma.f64 (-.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (+ (* delta (- (* delta (+ (* -1 (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 2/3 binary64)) delta (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) delta (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 phi1)))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (-.f64 (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (-.f64 (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (-.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 delta delta)) #s(literal 1/2 binary64)) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (-.f64 (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (neg.f64 delta) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (-.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (neg.f64 delta)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (-.f64 (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (-.f64 (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (neg.f64 delta) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (-.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (neg.f64 delta)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (-.f64 (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (fma.f64 (.f64 delta (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) delta)) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (cos theta) (sin delta)) (*.f64 (cos.f64 theta) delta))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 delta delta) #s(literal 1 binary64)) (cos.f64 theta)) delta))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (cos theta) (sin delta)) (.f64 (fma.f64 (.f64 (cos.f64 theta) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (cos.f64 theta)) delta))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (* (cos theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta delta) #s(literal 1/120 binary64))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) (cos.f64 theta))) (.f64 delta delta) (cos.f64 theta)) delta))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (sin phi1)))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (sin.f64 phi1))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1)))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (* -3/2 (sin phi1)) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (fma.f64 (fma.f64 (fma.f64 (sin.f64 phi1) #s(literal -1/2 binary64) #s(literal 0 binary64)) delta (*.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (+ (* -3/2 (sin phi1)) (* delta (- (/ (* (pow (cos phi1) 3) (pow (cos theta) 3)) (pow (sin phi1) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -3/2 (sin phi1)) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))))))) (sin phi1))) (+ (* -1 (/ (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))) (sin phi1))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (sin phi1) 2))))))) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (fma.f64 (fma.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) #s(literal -1/2 binary64) #s(literal 0 binary64)) (cos.f64 theta)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 2/3 binary64))) (sin.f64 phi1)) (/.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) delta (.f64 #s(literal -3/2 binary64) (sin.f64 phi1))) (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) #s(literal 0 binary64))) delta (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (-.f64 (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (neg.f64 delta) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ 1 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1/2 (* -3/2 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (-.f64 (fma.f64 (fma.f64 (neg.f64 (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) delta)) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ 1 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (- (+ (* -1 (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -3/2 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (sin phi1)))) (/ (* (pow (cos phi1) 3) (pow (cos theta) 3)) (sin phi1)))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1/2 (* -3/2 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (-.f64 (fma.f64 (fma.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 (-.f64 (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 2/3 binary64) (/.f64 (+.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(literal 3 binary64))) (neg.f64 (.f64 (.f64 (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (cos.f64 theta)) (cos.f64 phi1)))) (sin.f64 phi1))) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(literal 3 binary64)) (sin.f64 phi1))) delta (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) delta (.f64 (neg.f64 (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 phi1)))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (* (pow (cos phi1) 3) (pow (cos theta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow.f64 (.f64 (.f64 delta (cos.f64 phi1)) (cos.f64 theta)) #s(literal 3 binary64)))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (+ (* -1/2 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)) (pow.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(literal 3 binary64))) (pow.f64 delta #s(literal 3 binary64))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (pow (cos theta) 3))) (* 13/120 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (.f64 (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 #s(literal 13/120 binary64) (.f64 delta delta) #s(literal -1/2 binary64))) (.f64 delta delta) (pow.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(literal 3 binary64))) (pow.f64 delta #s(literal 3 binary64))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (pow (cos theta) 3))) (* (pow delta 2) (+ (* -41/3024 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))) (* 13/120 (* (pow (cos phi1) 3) (pow (cos theta) 3))))))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(literal 3 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 delta delta) #s(literal 13/120 binary64))) (.f64 delta delta) (.f64 (pow.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(literal 3 binary64)) #s(literal -1/2 binary64))) (.f64 delta delta) (pow.f64 (*.f64 (cos.f64 theta) (cos.f64 phi1)) #s(literal 3 binary64))) (pow.f64 delta #s(literal 3 binary64))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (pow (sin phi1) 3)))
#s(approx (pow (* (cos delta) (sin phi1)) 3) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow delta 2) (pow (sin phi1) 3))) (pow (sin phi1) 3))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) (.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 delta delta) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -3/2 (pow (sin phi1) 3)) (* 7/8 (* (pow delta 2) (pow (sin phi1) 3))))) (pow (sin phi1) 3))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) (fma.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 7/8 binary64) (.f64 delta delta) #s(literal -3/2 binary64))) (*.f64 delta delta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -3/2 (pow (sin phi1) 3)) (* (pow delta 2) (+ (* -61/240 (* (pow delta 2) (pow (sin phi1) 3))) (* 7/8 (pow (sin phi1) 3)))))) (pow (sin phi1) 3))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 delta delta) #s(literal 7/8 binary64))) (.f64 delta delta) (.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (*.f64 delta delta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (.f64 (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (neg.f64 delta)))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (.f64 (fma.f64 (neg.f64 (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 phi1)) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) delta)) delta))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (cos theta) (sin delta)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 phi1) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 delta))) (neg.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/120 binary64) (.f64 theta theta) #s(literal -1/6 binary64))) (.f64 theta theta) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 theta theta) #s(literal 1/120 binary64))) (.f64 theta theta) (.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (.f64 theta theta) (sin.f64 delta)) theta))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (.f64 #s(literal 1/2 binary64) delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 theta theta)) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 theta theta)) (.f64 (.f64 #s(literal 1/2 binary64) delta) (.f64 (sin.f64 phi1) (cos.f64 phi1)))) (.f64 theta theta) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (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))))))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) delta) (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) delta) (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/720 binary64) delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 theta theta)))) (.f64 theta theta))) (.f64 theta theta) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (+ (* 1/2 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 theta theta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (.f64 theta theta) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (fma.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (.f64 theta theta) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (.f64 theta theta) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (.f64 theta theta) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (+ (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1))))) (fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal 1/720 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (.f64 theta theta) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (.f64 theta theta) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 theta theta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin phi1))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) (*.f64 (sin.f64 phi1) (cos.f64 phi1)))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1)))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin phi1)))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (.f64 theta theta) (*.f64 (sin.f64 phi1) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* 1/24 (* (cos phi1) (sin phi1))))))))))
#s(approx (* (* (cos theta) (sin phi1)) (cos phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 phi1) (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (.f64 (sin.f64 phi1) (cos.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/24 binary64) (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 theta theta) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1))))))) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/720 binary64) (.f64 theta theta) #s(literal -1/24 binary64))) (.f64 theta theta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (.f64 theta theta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 theta theta))) (.f64 theta theta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos theta) (sin delta)) (sin.f64 delta))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (cos theta) (sin delta)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (cos theta) (sin delta)) (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/24 binary64) (.f64 theta theta) #s(literal -1/2 binary64))) (*.f64 theta theta) (sin.f64 delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (* (cos theta) (sin delta)) (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) (.f64 theta theta) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (*.f64 theta theta) (sin.f64 delta)))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* (pow theta 2) (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (fma.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -3/2 binary64)) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (.f64 theta theta) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (fma.f64 (-.f64 (fma.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal 7/8 binary64)) (fma.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -3/2 binary64)) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (/.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))))) (.f64 theta theta) (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -3/2 binary64))) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (.f64 theta theta) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (+ (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (* -61/240 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (+ (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (fma.f64 (fma.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -3/2 binary64) (fma.f64 (-.f64 (fma.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -61/240 binary64)) (fma.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (/.f64 (fma.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal 1/720 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))) (/.f64 (fma.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal 7/8 binary64)) (fma.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -3/2 binary64)) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (/.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -3/2 binary64)) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (fma.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))) (.f64 theta theta) (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal 7/8 binary64))) (fma.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -3/2 binary64)) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (/.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))))) (.f64 theta theta) (.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)))) (/.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))))) (.f64 theta theta) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (-.f64 (cos.f64 delta) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (-.f64 (fma.f64 (fma.f64 (sin.f64 phi1) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))) (.f64 theta theta) (cos.f64 delta)) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (-.f64 (fma.f64 (fma.f64 (fma.f64 (-.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -3/2 binary64)) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (/.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (fma.f64 (sin.f64 phi1) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal -7/8 binary64) (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))))) (.f64 theta theta) (fma.f64 (sin.f64 phi1) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))))) (.f64 theta theta) (cos.f64 delta)) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (+ (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -61/240 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (-.f64 (fma.f64 (fma.f64 (fma.f64 (+.f64 (/.f64 (fma.f64 (-.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal 7/8 binary64)) (fma.f64 (-.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -3/2 binary64)) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (/.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (.f64 (-.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -3/2 binary64)) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (fma.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (fma.f64 (sin.f64 phi1) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal 1/720 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 61/240 binary64) (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))))) (.f64 theta theta) (fma.f64 (-.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) #s(literal -3/2 binary64)) (/.f64 (.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64)))) (/.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))) (fma.f64 (sin.f64 phi1) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal -7/8 binary64) (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))))) (.f64 theta theta) (fma.f64 (sin.f64 phi1) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 3/2 binary64) (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))))) (.f64 theta theta) (cos.f64 delta)) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (sin.f64 phi1)) (-.f64 (fma.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (sin delta) 3))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* -3/2 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 theta theta) #s(literal 1 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (sin delta) 3))) (* 7/8 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 7/8 binary64) (.f64 theta theta) #s(literal -3/2 binary64))) (.f64 theta theta) (pow.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (sin delta) 3))) (* (pow theta 2) (+ (* -61/240 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (* 7/8 (* (pow (cos phi1) 3) (pow (sin delta) 3))))))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (fma.f64 (fma.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 theta theta) #s(literal 7/8 binary64))) (.f64 theta theta) (.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64)) #s(literal -3/2 binary64))) (.f64 theta theta) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64))))

rewrite185.0ms (1.4%)

Memory

5.2MiB live, 197.0MiB allocated; 17ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	78	807
0	132	631
1	564	584
2	3786	584
0	8238	579

Stop Event

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

Counts

29 → 625

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

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

eval213.0ms (1.6%)

Memory: -18.8MiB live, 268.5MiB allocated; 53ms collecting garbage
Compiler: Compiled 61 497 to 6 007 computations (90.2% saved)

prune60.0ms (0.5%)

Memory

-10.3MiB live, 84.9MiB allocated; 2ms collecting garbage

Pruning

27 alts after pruning (26 fresh and 1 done)

	Pruned	Kept	Total
New	813	23	836
Fresh	16	3	19
Picked	4	1	5
Done	0	0	0
Total	833	27	860

Accuracy

100.0%

Counts

860 → 27

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	99.7%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1)
	80.6%	(+.f64 (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))))))) (.f64 (cos.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 delta) (cos.f64 phi1))))) lambda1)
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))))))
	88.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1))) #s(literal 2 binary64)))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 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 (sin.f64 phi1) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	92.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 (.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))))))))
	88.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 #s(approx (/ (+ (pow ( (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
	93.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 (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	95.8%	(+.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 (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
	85.3%	(+.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 (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos delta) (sin phi1)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))
	88.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))) (cos.f64 delta))))
	80.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
▶	80.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 (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))
	75.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 (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (cos.f64 theta) phi1) (neg.f64 delta) #s(literal 1 binary64))))))
▶	76.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 (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	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 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
	77.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
	77.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
	32.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))))
	99.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))))))))) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) lambda1 lambda1))
▶	32.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
✓	69.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))))))))) lambda1)

Compiler

Compiled 3 195 to 1 690 computations (47.1% saved)

simplify194.0ms (1.5%)

Memory

9.6MiB live, 97.8MiB allocated; 12ms collecting garbage

Localize:

Found 20 expressions of interest:

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

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	78	1024
0	127	991
1	220	975
2	440	947
3	1132	933
4	2623	933
5	6424	933
0	8648	933

Stop Event

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

Calls

Call 1

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

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

localize336.0ms (2.6%)

Memory

23.8MiB live, 263.1MiB allocated; 16ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.2421875	(-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
accuracy	0.3341002912568932	(asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))))
accuracy	0.4630043366096631	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
accuracy	14.53897764289698	(sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
accuracy	0.17416000976844204	(*.f64 (cos.f64 theta) (sin.f64 delta))
accuracy	0.22265625	(.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))
accuracy	0.4630043366096631	(-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
accuracy	43.23415048067534	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
accuracy	0.21484375	(*.f64 (sin.f64 phi1) (cos.f64 phi1))
accuracy	0.25619125976844204	(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
accuracy	10.17348175842972	#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
accuracy	31.29534107118442	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
accuracy	0.1484375	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (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 (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64))))
accuracy	0.15234375	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	31.29534107118442	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))
accuracy	36.0471115049025	#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64))
accuracy	0.15625	(*.f64 (cos.f64 delta) (sin.f64 phi1))
accuracy	0.19452844383407	(fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))
accuracy	0.22265625	(.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))
accuracy	0.4630043366096631	(-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))

Samples

150.0ms	195×	0	valid
132.0ms	61×	1	valid

Compiler

Compiled 847 to 64 computations (92.4% saved)

Precisions

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

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

ival-cos: 47.0ms (19.5% of total)

ival-mult: 38.0ms (15.7% of total)

ival-asin: 29.0ms (12% of total)

ival-atan2: 21.0ms (8.7% of total)

adjust: 15.0ms (6.2% of total)

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

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

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

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

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

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

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

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

exact: 0.0ms (0% of total)

series120.0ms (0.9%)

Memory

-43.3MiB live, 69.5MiB allocated; 65ms collecting garbage

Counts

33 → 203

Calls

Call 1

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

Outputs
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 lambda1))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 1))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (+ 1 (* -1 (* delta phi1)))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 delta) (* -1 phi1))))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 delta) (* phi1 (- (* 2/3 (* delta phi1)) 1)))))))
#s(approx (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (* phi1 (cos delta))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos delta) (* -1/6 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* 1/120 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 1))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* -1 (* delta (* phi1 (cos theta)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* -1 (* delta (* phi1 (+ (* -1/2 (cos theta)) (* -1/6 (cos theta)))))) 1)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 1))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (* (sin phi1) (cos phi1)) #s(hole binary64 phi1))
#s(approx (* (sin phi1) (cos phi1)) #s(hole binary64 (* phi1 (+ 1 (* -2/3 (pow phi1 2))))))
#s(approx (* (sin phi1) (cos phi1)) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 2/15 (pow phi1 2)) 2/3))))))
#s(approx (* (sin phi1) (cos phi1)) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/15 (* -4/315 (pow phi1 2)))) 2/3))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))) #s(hole binary64 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* -1/6 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (sin phi1) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin phi1))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (sin phi1)))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (* -1 (* delta (* (cos phi1) (sin phi1))))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (* delta (+ (* -1 (* (cos phi1) (sin phi1))) (/ (pow (cos phi1) 2) delta)))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (sin phi1)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (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))))))))) (pow (cos phi1) 2)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))

Calls

15 calls:

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

simplify167.0ms (1.3%)

Memory

34.2MiB live, 165.6MiB allocated; 17ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	741	7686
1	2229	7321
0	8536	6929

Stop Event

1×	iter limit
1×	node limit

Counts

203 → 203

Calls

Call 1

Inputs
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 lambda1))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 1))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (+ 1 (* -1 (* delta phi1)))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 delta) (* -1 phi1))))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 delta) (* phi1 (- (* 2/3 (* delta phi1)) 1)))))))
#s(approx (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (* phi1 (cos delta))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos delta) (* -1/6 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* 1/120 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 1))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* -1 (* delta (* phi1 (cos theta)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* -1 (* delta (* phi1 (+ (* -1/2 (cos theta)) (* -1/6 (cos theta)))))) 1)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 1))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (* (sin phi1) (cos phi1)) #s(hole binary64 phi1))
#s(approx (* (sin phi1) (cos phi1)) #s(hole binary64 (* phi1 (+ 1 (* -2/3 (pow phi1 2))))))
#s(approx (* (sin phi1) (cos phi1)) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 2/15 (pow phi1 2)) 2/3))))))
#s(approx (* (sin phi1) (cos phi1)) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/15 (* -4/315 (pow phi1 2)))) 2/3))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))) #s(hole binary64 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* -1/6 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (sin phi1) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin phi1))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (sin phi1)))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))))
#s(approx (* (cos delta) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (* -1 (* delta (* (cos phi1) (sin phi1))))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (* delta (+ (* -1 (* (cos phi1) (sin phi1))) (/ (pow (cos phi1) 2) delta)))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) #s(hole binary64 (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (sin phi1)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (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))))))))) (pow (cos phi1) 2)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))

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

rewrite55.0ms (0.4%)

Memory

-15.0MiB live, 42.2MiB allocated; 7ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	78	835
0	127	794
0	522	786

Stop Event

1×	iter limit
1×	iter limit
1×	iter limit
1×	unsound
1×	iter limit

Counts

33 → 122

Calls

Call 1

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

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

eval80.0ms (0.6%)

Memory: 22.9MiB live, 67.9MiB allocated; 3ms collecting garbage
Compiler: Compiled 21 414 to 1 721 computations (92% saved)

prune70.0ms (0.5%)

Memory

-36.5MiB live, 56.7MiB allocated; 5ms collecting garbage

Pruning

45 alts after pruning (42 fresh and 3 done)

	Pruned	Kept	Total
New	314	34	348
Fresh	13	8	21
Picked	3	2	5
Done	0	1	1
Total	330	45	375

Accuracy

100.0%

Counts

375 → 45

Alt Table

Click to see full alt table

Status	Accuracy	Program
	88.7%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) #s(literal 2 binary64)))) lambda1)
	84.1%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) #s(approx (* (cos delta) (sin phi1)) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 phi1)))) (sin.f64 phi1)))) lambda1)
	93.4%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) #s(approx (* (cos delta) (sin phi1)) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	85.3%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (fma.f64 (fma.f64 (.f64 delta #s(literal -1/2 binary64)) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	95.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (fma.f64 (sin.f64 delta) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (sin.f64 phi1)))) lambda1)
	88.6%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (sin.f64 phi1)))) lambda1)
	93.0%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
	85.3%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))) lambda1)
▶	80.3%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda1)
	80.6%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 (cos.f64 phi1) (fma.f64 (.f64 (neg.f64 delta) (cos.f64 theta)) (sin.f64 phi1) (cos.f64 phi1))))) lambda1)
	88.0%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (cos.f64 delta))) lambda1)
▶	99.8%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	99.7%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1)
	76.8%	(+.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	76.9%	(+.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	87.7%	(+.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1))))))
	92.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 (.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))))))))
▶	78.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 (PI.f64) (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 delta delta) #s(literal 1 binary64))))))
	80.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 (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))))))
	70.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))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) (fma.f64 (fma.f64 (-.f64 (.f64 #s(literal 2/3 binary64) (.f64 phi1 delta)) #s(literal 1 binary64)) phi1 (neg.f64 delta)) phi1 #s(literal 1 binary64)))))))
	69.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 (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) (fma.f64 (-.f64 (neg.f64 delta) phi1) phi1 #s(literal 1 binary64)))))))
	74.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))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(approx (+ (* (* (sin phi1) (cos phi1)) (neg delta)) (pow (cos phi1) 2)) (fma.f64 (neg.f64 delta) phi1 #s(literal 1 binary64)))))))
✓	76.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 (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	71.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	76.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))
	71.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	77.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
	77.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	65.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	68.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	77.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))
	71.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
▶	75.2%	(+.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))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	99.8%	#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) lambda1 lambda1))
	32.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))))
	32.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 (PI.f64) (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 delta))))
✓	32.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
▶	28.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
✓	69.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))))))))) lambda1)

Compiler

Compiled 5 258 to 2 942 computations (44% saved)

simplify134.0ms (1%)

Memory

35.6MiB live, 125.2MiB allocated; 12ms collecting garbage

Localize:

Found 20 expressions of interest:

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

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	95	1042
0	154	1022
1	274	1014
2	550	1004
3	1413	998
4	3193	998
5	6815	998
0	8027	998

Stop Event

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

Calls

Call 1

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

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

localize449.0ms (3.4%)

Memory

-0.7MiB live, 376.7MiB allocated; 44ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.3123035178496229	(fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 (PI.f64) (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 delta delta) #s(literal 1 binary64)))
accuracy	0.3341002912568932	(asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))))
accuracy	14.53897764289698	(sin.f64 (-.f64 (PI.f64) (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
accuracy	32.27804102560937	#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 (PI.f64) (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 delta delta) #s(literal 1 binary64))))
accuracy	0.22265625	(.f64 (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))
accuracy	0.4630043366096631	(-.f64 (cos.f64 delta) (.f64 (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
accuracy	26.4814338320174	#s(approx (* (cos theta) (sin delta)) (sin.f64 delta))
accuracy	43.23415048067534	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
accuracy	0.1484375	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
accuracy	0.15234375	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.25619125976844204	(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
accuracy	29.639601976165018	#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
accuracy	0.15234375	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	24.422190333276244	#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
accuracy	31.29534107118442	#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))
accuracy	36.0471115049025	#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64))
accuracy	0.19452844383407	(fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))
accuracy	0.22265625	(.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))
accuracy	0.23046875	(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
accuracy	0.4630043366096631	(-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))

Samples

177.0ms	196×	0	valid
134.0ms	46×	1	valid
56.0ms	14×	2	valid

Compiler

Compiled 817 to 78 computations (90.5% saved)

Precisions

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

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

ival-mult: 43.0ms (13.2% of total)

adjust: 36.0ms (11% of total)

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

ival-asin: 33.0ms (10.1% of total)

ival-atan2: 22.0ms (6.7% of total)

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

ival-pow2: 10.0ms (3.1% of total)

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

const: 4.0ms (1.2% of total)

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

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

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

exact: 1.0ms (0.3% of total)

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

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

series90.0ms (0.7%)

Memory

11.3MiB live, 102.0MiB allocated; 10ms collecting garbage

Counts

31 → 213

Calls

Call 1

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

Outputs
#s(approx (+ (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (+ (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 lambda1))
#s(approx (+ (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) #s(hole binary64 lambda1))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)))))
#s(approx (+ (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)) 1)))))
#s(approx (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 1))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* -1 (* delta (* phi1 (cos theta)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* -1 (* delta (* phi1 (+ (* -1/2 (cos theta)) (* -1/6 (cos theta)))))) 1)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 1))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* -1/6 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta)))))) #s(hole binary64 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (+ (* -1 (* phi1 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (+ (* phi1 (+ (* -1 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* 1/6 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (+ (* phi1 (+ (* -1 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* 1/6 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (+ (* -1 (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (* -1 (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (+ (* -1 (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* -1/2 (pow delta 2))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (* 1/24 (pow delta 4))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (* (pow delta 4) (- 1/24 (* 1/2 (/ 1 (pow delta 2)))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (* (pow delta 4) (- (+ 1/24 (+ (* -1 (/ (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (pow delta 4))) (/ 1 (pow delta 4)))) (* 1/2 (/ 1 (pow delta 2)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (sin theta) #s(hole binary64 theta))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* -1/6 (pow theta 2))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* 1/120 (pow theta 2)) 1/6))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/120 (* -1/5040 (pow theta 2)))) 1/6))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (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))))))))) (pow (cos phi1) 2)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))

Calls

15 calls:

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

simplify248.0ms (1.9%)

Memory

6.2MiB live, 244.0MiB allocated; 27ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	742	8689
1	2154	8251
0	8491	7794

Stop Event

1×	iter limit
1×	node limit

Counts

213 → 213

Calls

Call 1

Inputs
#s(approx (+ (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (+ (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 lambda1))
#s(approx (+ (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) #s(hole binary64 lambda1))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)))))
#s(approx (+ (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)) 1)))))
#s(approx (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 1))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* -1 (* delta (* phi1 (cos theta)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* -1 (* delta (* phi1 (+ (* -1/2 (cos theta)) (* -1/6 (cos theta)))))) 1)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 1))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* -1/6 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta)))))) #s(hole binary64 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (+ (* -1 (* phi1 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (+ (* phi1 (+ (* -1 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* 1/6 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (+ (* phi1 (+ (* -1 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* 1/6 (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (+ (* -1 (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (* -1 (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (+ 1 (+ (* -1 (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* -1/2 (pow delta 2))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (* 1/24 (pow delta 4))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (* (pow delta 4) (- 1/24 (* 1/2 (/ 1 (pow delta 2)))))))
#s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) #s(hole binary64 (* (pow delta 4) (- (+ 1/24 (+ (* -1 (/ (* (sin phi1) (sin (- (PI) (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (pow delta 4))) (/ 1 (pow delta 4)))) (* 1/2 (/ 1 (pow delta 2)))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (sin theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (sin theta) #s(hole binary64 theta))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* -1/6 (pow theta 2))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* 1/120 (pow theta 2)) 1/6))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/120 (* -1/5040 (pow theta 2)))) 1/6))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (+ (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))) (pow (cos phi1) 2)))))
#s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (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))))))))) (pow (cos phi1) 2)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))

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

rewrite52.0ms (0.4%)

Memory

3.6MiB live, 50.4MiB allocated; 1ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	95	853
0	154	825
0	652	821

Stop Event

1×	iter limit
1×	iter limit
1×	iter limit
1×	unsound
1×	iter limit

Counts

31 → 107

Calls

Call 1

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

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

eval63.0ms (0.5%)

Memory: -19.9MiB live, 70.8MiB allocated; 8ms collecting garbage
Compiler: Compiled 18 453 to 1 451 computations (92.1% saved)

prune99.0ms (0.8%)

Memory

18.0MiB live, 154.6MiB allocated; 20ms collecting garbage

Pruning

57 alts after pruning (51 fresh and 6 done)

	Pruned	Kept	Total
New	262	21	283
Fresh	7	30	37
Picked	2	3	5
Done	0	3	3
Total	271	57	328

Accuracy

100.0%

Counts

328 → 57

Alt Table

Click to see full alt table

Status	Accuracy	Program
	88.7%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) #s(literal 2 binary64)))) lambda1)
	84.1%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) #s(approx (* (cos delta) (sin phi1)) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 phi1)))) (sin.f64 phi1)))) lambda1)
	93.4%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) #s(approx (* (cos delta) (sin phi1)) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	95.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (fma.f64 (sin.f64 delta) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (sin.f64 phi1)))) lambda1)
	88.6%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (sin.f64 phi1)))) lambda1)
	93.0%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
	80.3%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi1))))) lambda1)
	80.3%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) lambda1)
	80.6%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 (cos.f64 phi1) (fma.f64 (.f64 (neg.f64 delta) (cos.f64 theta)) (sin.f64 phi1) (cos.f64 phi1))))) lambda1)
	88.0%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (cos.f64 delta))) lambda1)
	69.5%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(approx (pow (cos phi1) 2) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))) lambda1)
	68.3%	(+.f64 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda1)
✓	99.8%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	85.3%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (fma.f64 (fma.f64 (.f64 delta #s(literal -1/2 binary64)) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	93.0%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
	80.3%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda1)
	88.0%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (cos.f64 delta))) lambda1)
	99.7%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))) lambda1)
	76.8%	(+.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	76.9%	(+.f64 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	75.8%	(+.f64 (atan2.f64 (.f64 #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda1)
	87.7%	(+.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)))) (.f64 (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1))))))
	92.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 (.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))))))))
	78.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 (PI.f64) (asin.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal 1/24 binary64) delta) delta #s(literal -1/2 binary64)) #s(literal 1 binary64))))))
	73.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))) #s(approx (+ (* (neg (sin phi1)) (sin (- (PI) (asin (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (sin phi1) (cos delta))))))) (+ (* (- (* (* delta delta) 1/24) 1/2) (* delta delta)) 1)) (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal 1/24 binary64) delta) delta #s(literal -1/2 binary64)) #s(literal 1 binary64))))))
	80.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 (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))))))
✓	76.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 (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	76.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))
	77.4%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi1))))))
	77.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (asin.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	65.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	68.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	77.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (neg.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))
	71.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	87.5%	(+.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))))))) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 delta)))))
	85.0%	(+.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))))))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))))
	75.2%	(+.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))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	86.4%	(+.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))))
✓	75.2%	(+.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))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	65.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) theta)) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	68.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	71.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (fma.f64 (.f64 (sin.f64 theta) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal -1/6 binary64))) (.f64 delta delta) (sin.f64 theta)) delta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	71.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	71.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 (sin.f64 theta) delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
	99.8%	#s(approx (+ (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)))) lambda1) (fma.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) lambda1 lambda1))
	32.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))))
	32.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (+ (/ (PI) 2) (/ (PI) 2)) (asin (+ (* (* (cos phi1) (sin delta)) (cos theta)) (* (sin phi1) (cos delta)))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 (-.f64 (PI.f64) (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 delta))))
✓	32.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
✓	28.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	14.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) #s(approx (sin theta) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
✓	69.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))))))))) lambda1)

Compiler

Compiled 8 885 to 2 581 computations (71% saved)

regimes216.0ms (1.6%)

Memory

6.3MiB live, 249.9MiB allocated; 49ms collecting garbage

Counts

103 → 1

Calls

Call 1

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

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 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))

Calls

7 calls:

36.0ms	phi2
31.0ms	theta
30.0ms	phi1
27.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))))))))
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)))))))))

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes229.0ms (1.7%)

Memory

14.9MiB live, 204.8MiB allocated; 24ms collecting garbage

Counts

86 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

56.0ms	phi1
45.0ms	theta
40.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)))))))))
25.0ms	phi2
20.0ms	delta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes154.0ms (1.2%)

Memory

-27.4MiB live, 170.0MiB allocated; 8ms collecting garbage

Counts

73 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

39.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	phi1
19.0ms	delta
17.0ms	phi2
17.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)))))))))

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes168.0ms (1.3%)

Memory

-20.4MiB live, 173.4MiB allocated; 6ms collecting garbage

Counts

72 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

50.0ms	delta
28.0ms	phi1
18.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)))))))))
17.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))))))))
17.0ms	theta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes139.0ms (1.1%)

Memory

19.9MiB live, 167.8MiB allocated; 8ms collecting garbage

Counts

70 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

26.0ms	lambda1
25.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))))))))
19.0ms	delta
17.0ms	phi1
16.0ms	theta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes121.0ms (0.9%)

Memory

-22.4MiB live, 122.8MiB allocated; 5ms collecting garbage

Counts

61 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

26.0ms	delta
18.0ms	phi2
16.0ms	phi1
15.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)))))))))
15.0ms	theta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes117.0ms (0.9%)

Memory

20.6MiB live, 66.9MiB allocated; 2ms collecting garbage

Counts

58 → 1

Calls

Call 1

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

Outputs

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

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))))))))
14.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
14.0ms	theta
14.0ms	phi2
14.0ms	phi1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes99.0ms (0.8%)

Memory

9.7MiB live, 56.3MiB allocated; 1ms collecting garbage

Counts

36 → 1

Calls

Call 1

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

43.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	(+.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)))))))))
9.0ms	delta
9.0ms	phi2
9.0ms	phi1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes73.0ms (0.6%)

Memory

-23.6MiB live, 72.4MiB allocated; 8ms collecting garbage

Counts

34 → 3

Calls

Call 1

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

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

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (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:

18.0ms	theta
10.0ms	lambda1
9.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)))))))))
9.0ms	delta
8.0ms	phi1

Results

Accuracy	Segments	Branch
88.0%	1	`lambda1`
92.5%	3	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
89.8%	2	`phi1`
92.4%	3	`delta`
92.5%	3	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
88.0%	1	`theta`
88.0%	1	`phi2`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes17.0ms (0.1%)

Memory

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

Counts

29 → 3

Calls

Call 1

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

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

Calls

2 calls:

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

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

Results

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

Compiler

Compiled 64 to 45 computations (29.7% saved)

regimes37.0ms (0.3%)

Memory

-24.4MiB live, 22.0MiB allocated; 4ms collecting garbage

Counts

28 → 3

Calls

Call 1

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

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

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (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:

28.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

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

Results

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

Compiler

Compiled 64 to 45 computations (29.7% saved)

regimes23.0ms (0.2%)

Memory

30.3MiB live, 30.2MiB allocated; 0ms collecting garbage

Counts

27 → 3

Calls

Call 1

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

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

Calls

3 calls:

7.0ms

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

7.0ms

delta

7.0ms

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

Results

Accuracy	Segments	Branch
92.3%	3	`delta`
88.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))))))))`
88.0%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`

Compiler

Compiled 65 to 50 computations (23.1% saved)

regimes51.0ms (0.4%)

Memory

-16.7MiB live, 79.1MiB allocated; 9ms collecting garbage

Counts

24 → 1

Calls

Call 1

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

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

7 calls:

10.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)))))))))
8.0ms	delta
6.0ms	phi1
6.0ms	phi2
6.0ms	theta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes67.0ms (0.5%)

Memory

5.4MiB live, 52.6MiB allocated; 1ms collecting garbage

Counts

20 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes30.0ms (0.2%)

Memory

-3.0MiB live, 43.3MiB allocated; 3ms collecting garbage

Counts

11 → 1

Calls

Call 1

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

Outputs

(+.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))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))

Calls

7 calls:

8.0ms	lambda1
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)))))))))
3.0ms	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
3.0ms	delta
3.0ms	theta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes27.0ms (0.2%)

Memory

-9.3MiB live, 36.5MiB allocated; 2ms collecting garbage

Counts

5 → 2

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
71.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))))))))`
71.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)))))))))`
71.8%	1	`theta`
71.8%	1	`lambda1`
71.8%	1	`phi1`
71.8%	1	`phi2`
73.6%	2	`delta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes12.0ms (0.1%)

Memory

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

Counts

3 → 2

Calls

Call 1

Inputs

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

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

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

Outputs

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
71.1%	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))))))))`
74.3%	3	`theta`
71.1%	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)))))))))`
71.1%	1	`phi1`
71.1%	1	`phi2`
71.1%	1	`lambda1`
73.1%	2	`delta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes20.0ms (0.2%)

Memory

-62.7MiB live, 8.9MiB allocated; 30ms collecting garbage

Counts

2 → 1

Calls

Call 1

Inputs

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

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

Calls

3 calls:

17.0ms	phi1
1.0ms	delta
1.0ms	theta

Results

Accuracy	Segments	Branch
71.1%	1	`phi1`
71.1%	1	`theta`
71.1%	1	`delta`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes8.0ms (0.1%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.4765743542082496e-26	3.3191122082516174e-19
0.0ms	-0.04237974991477507	-0.0012617129446783897

Compiler

Compiled 36 to 31 computations (13.9% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.4765743542082496e-26	3.3191122082516174e-19
0.0ms	-0.04237974991477507	-0.0012617129446783897

Compiler

Compiled 36 to 31 computations (13.9% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.4765743542082496e-26	3.3191122082516174e-19
0.0ms	-0.04237974991477507	-0.0012617129446783897

Compiler

Compiled 36 to 31 computations (13.9% saved)

bsearch96.0ms (0.7%)

Memory

-16.6MiB live, 77.1MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
33.0ms	2.463346252448382e+35	1.1173437265508536e+37
26.0ms	-8.950179388806074e-8	-1.479671538499868e-8

Samples

50.0ms

208×

valid

Compiler

Compiled 1 037 to 772 computations (25.6% saved)

Precisions

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

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

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

ival-mult: 8.0ms (18.7% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

bsearch75.0ms (0.6%)

Memory

6.5MiB live, 53.5MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
72.0ms	-1.694653948138602e+51	-3.1674330965103896e+46

Samples

66.0ms

128×

valid

Compiler

Compiled 1 092 to 663 computations (39.3% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

bsearch33.0ms (0.2%)

Memory

-4.4MiB live, 44.9MiB allocated; 5ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
30.0ms	-2.6738225992957636e+52	-4.884895506998474e+51

Samples

26.0ms

96×

valid

Compiler

Compiled 786 to 481 computations (38.8% saved)

Precisions

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

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

ival-cos: 6.0ms (26.3% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

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

simplify61.0ms (0.5%)

Memory

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

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	186	1343
1	327	1323
2	744	1317
3	2884	1317

Stop Event

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 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (fma.f64 (sin.f64 delta) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (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 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal -5764607523034235/144115188075855872 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 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal 1742245718635205/87112285931760246646623899502532662132736 binary64)) (+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda1) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (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 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal -5764607523034235/144115188075855872 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 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal 1742245718635205/87112285931760246646623899502532662132736 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos 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))))))) (cos.f64 delta))))))
(if (<=.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal -5764607523034235/144115188075855872 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 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal 1742245718635205/87112285931760246646623899502532662132736 binary64)) (+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) lambda1) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (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 -1662273001970115/18889465931478580854784 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 250000000000000010605159343504490496 binary64)) (+.f64 (atan2.f64 (.f64 #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda1) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (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 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))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
(if (<=.f64 delta #s(literal -37999999999999999232252883274695048602423656448 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos 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 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64))))))
(if (<=.f64 delta #s(literal -5399999999999999830470323263061203782512519558463488 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos 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 theta) delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos 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 theta) delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos 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))))))))) lambda1)

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 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (fma.f64 (sin.f64 delta) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (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 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal -5764607523034235/144115188075855872 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 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal 1742245718635205/87112285931760246646623899502532662132736 binary64)) (+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda1) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (or (<=.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal -5764607523034235/144115188075855872 binary64)) (not (<=.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal 1742245718635205/87112285931760246646623899502532662132736 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 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda1))
(if (<=.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal -5764607523034235/144115188075855872 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 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal 1742245718635205/87112285931760246646623899502532662132736 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos 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))))))) (cos.f64 delta))))))
(if (or (<=.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal -5764607523034235/144115188075855872 binary64)) (not (<=.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal 1742245718635205/87112285931760246646623899502532662132736 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 (/ (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 2) (- (pow (* (cos delta) (sin phi1)) 2) (* (* (* (cos delta) (sin phi1)) (cos theta)) (* (sin delta) (cos phi1)))))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(if (<=.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal -5764607523034235/144115188075855872 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 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal 1742245718635205/87112285931760246646623899502532662132736 binary64)) (+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) lambda1) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (or (<=.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal -5764607523034235/144115188075855872 binary64)) (not (<=.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal 1742245718635205/87112285931760246646623899502532662132736 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 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) lambda1))
(if (<=.f64 delta #s(literal -1662273001970115/18889465931478580854784 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 250000000000000010605159343504490496 binary64)) (+.f64 (atan2.f64 (.f64 #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda1) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (or (<=.f64 delta #s(literal -1662273001970115/18889465931478580854784 binary64)) (not (<=.f64 delta #s(literal 250000000000000010605159343504490496 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 (atan2.f64 (.f64 #s(approx ( (sin delta) (sin theta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) lambda1))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (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 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))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64)))))
(if (<=.f64 delta #s(literal -37999999999999999232252883274695048602423656448 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos 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 (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) delta #s(literal 1 binary64)) (sin.f64 theta)) delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos phi1))) #s(literal 1 binary64))))))
(if (<=.f64 delta #s(literal -5399999999999999830470323263061203782512519558463488 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos 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 theta) delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos 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 theta) delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (+ (* (neg delta) (* (* (cos theta) (sin phi1)) (cos phi1))) (* (cos phi1) (cos 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))))))))) lambda1)

derivations1.1s (8.2%)

Memory

108.1MiB live, 612.1MiB allocated; 347ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 343 to 188 computations (86% saved)

preprocess169.0ms (1.3%)

Memory: -10.4MiB live, 127.3MiB allocated; 18ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 2 824 to 474 computations (83.2% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.4s (10.3%)

sample3.7s (28.3%)

explain364.0ms (2.8%)

preprocess196.0ms (1.5%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify151.0ms (1.1%)

localize133.0ms (1%)

series44.0ms (0.3%)

simplify166.0ms (1.3%)

rewrite202.0ms (1.5%)

eval46.0ms (0.4%)

prune27.0ms (0.2%)

simplify144.0ms (1.1%)

localize456.0ms (3.5%)

series195.0ms (1.5%)

simplify213.0ms (1.6%)

rewrite185.0ms (1.4%)

eval213.0ms (1.6%)

prune60.0ms (0.5%)

simplify194.0ms (1.5%)

localize336.0ms (2.6%)

series120.0ms (0.9%)

simplify167.0ms (1.3%)

rewrite55.0ms (0.4%)

eval80.0ms (0.6%)

prune70.0ms (0.5%)

simplify134.0ms (1%)

localize449.0ms (3.4%)

series90.0ms (0.7%)

simplify248.0ms (1.9%)

rewrite52.0ms (0.4%)

eval63.0ms (0.5%)

prune99.0ms (0.8%)

regimes216.0ms (1.6%)

regimes229.0ms (1.7%)

regimes154.0ms (1.2%)

regimes168.0ms (1.3%)

regimes139.0ms (1.1%)

regimes121.0ms (0.9%)

regimes117.0ms (0.9%)

regimes99.0ms (0.8%)

regimes73.0ms (0.6%)

regimes17.0ms (0.1%)

regimes37.0ms (0.3%)

regimes23.0ms (0.2%)

regimes51.0ms (0.4%)

regimes67.0ms (0.5%)

regimes30.0ms (0.2%)

regimes27.0ms (0.2%)

regimes12.0ms (0.1%)

regimes20.0ms (0.2%)

regimes8.0ms (0.1%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch96.0ms (0.7%)

bsearch75.0ms (0.6%)

bsearch33.0ms (0.2%)

simplify61.0ms (0.5%)

derivations1.1s (8.2%)

preprocess169.0ms (1.3%)

end0.0ms (0%)

Profiling