Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze1.7s (13.9%)

Memory

97.0MiB live, 1 504.5MiB allocated; 349ms 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.8s (30.6%)

Memory

-108.7MiB live, 2 113.3MiB allocated; 1.7s collecting garbage

Samples

3.3s

8 256×

valid

Precisions

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

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

ival-sin: 824.0ms (28.5% of total)

ival-mult: 325.0ms (11.2% of total)

ival-asin: 107.0ms (3.7% of total)

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

ival-add: 81.0ms (2.8% of total)

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

adjust: 3.0ms (0.1% of total)

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

Bogosity

explain355.0ms (2.8%)

Memory

27.8MiB live, 355.0MiB allocated; 20ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
9	2	(-7.580308190629191e-177 -29.9417024522062 -2.827014907816997e-103 5.3136652866974934e-194 8.141879059903657e-178)	3	(-7.4505024761952685e+96 2.0593355348781815e+26 2.409416781761621e+274 5.143044838523026e-169 3.3562101002221704e-48)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))`
0	0	-	0	-	`(cos.f64 theta)`
0	0	-	0	-	`theta`
0	0	-	0	-	`(sin.f64 theta)`
0	0	-	0	-	`(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))`
0	0	-	0	-	`(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))`
0	0	-	0	-	`delta`
0	0	-	0	-	`(sin.f64 phi1)`
0	0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 delta))`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
0	0	-	0	-	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`
0	0	-	0	-	`(*.f64 (sin.f64 theta) (sin.f64 delta))`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 delta))`
0	0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))`
0	0	-	0	-	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
0	0	-	0	-	`(sin.f64 delta)`
0	0	-	0	-	`(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))`
0	0	-	0	-	`(cos.f64 delta)`
0	0	-	0	-	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`
0	0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

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

Confusion

	Predicted +	Predicted -
+	1	0
-	0	255

Precision

1.0

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	0	0
-	0	5	250

Precision?

0.16666666666666666

Recall?

1.0

Freqs

test

number	freq
0	255
1	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

134.0ms

512×

valid

Compiler

Compiled 431 to 73 computations (83.1% saved)

Precisions

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

ival-sin: 36.0ms (36% of total)

ival-cos: 28.0ms (28% of total)

ival-mult: 18.0ms (18% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

preprocess212.0ms (1.7%)

Memory

8.9MiB live, 147.1MiB allocated; 18ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	179	710
1	422	705
2	873	703
3	1685	703
4	3414	703
5	6243	703
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.2MiB live, 0.2MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 5 computations (-∞% saved)

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	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)

simplify169.0ms (1.3%)

Memory

-44.8MiB live, 104.0MiB allocated; 27ms 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)

localize83.0ms (0.7%)

Memory

22.2MiB live, 113.1MiB allocated; 7ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.18587875976844204	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.26171875	(.f64 (sin.f64 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.30610103731422444	(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
accuracy	0.5992879952746731	(-.f64 (cos.f64 delta) (.f64 (sin.f64 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

69.0ms

256×

valid

Compiler

Compiled 199 to 25 computations (87.4% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

series52.0ms (0.4%)

Memory

-18.0MiB live, 80.8MiB allocated; 12ms collecting garbage

Counts

8 → 68

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
19.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)))))) (* (sin theta) (sin delta)))
7.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)))))) (* (sin theta) (sin delta)))
4.0ms	phi1	@	inf	((+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (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)))))) (* (sin theta) (sin delta)))
3.0ms	delta	@	0	((+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (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)))))) (* (sin theta) (sin delta)))
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)))))) (* (sin theta) (sin delta)))

simplify161.0ms (1.3%)

Memory

12.1MiB live, 104.5MiB allocated; 3ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	360	2661
1	1210	2538
2	5208	2522
0	8644	2374

Stop Event

1×	iter limit
1×	node limit

Counts

68 → 68

Calls

Call 1

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

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

rewrite225.0ms (1.8%)

Memory

28.9MiB live, 161.4MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

Stop Event

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

Counts

8 → 169

Calls

Call 1

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

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

eval46.0ms (0.4%)

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

prune30.0ms (0.2%)

Memory

-24.3MiB live, 36.8MiB allocated; 5ms collecting garbage

Pruning

21 alts after pruning (21 fresh and 0 done)

	Pruned	Kept	Total
New	216	21	237
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	217	21	238

Accuracy

99.9%

Counts

238 → 21

Alt Table

Click to see full alt table

Status	Accuracy	Program
	64.8%	(/.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))
	51.2%	(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) (.f64 lambda1 lambda1)))
	99.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.8%	(+.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.7%	(+.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 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))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (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))))))
▶	92.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.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)))))))
	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 (cos.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))))
	88.9%	(+.f64 lambda1 (atan2.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.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (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)))))
	94.9%	(+.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))))))
▶	76.7%	(+.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)))))
	84.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 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
	89.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	33.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
▶	67.7%	#s(approx (+ 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 166 to 1 154 computations (46.7% saved)

simplify169.0ms (1.3%)

Memory

1.6MiB live, 135.7MiB allocated; 9ms collecting garbage

Localize:

Found 17 expressions of interest:

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

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	64	925
0	106	908
1	196	908
2	506	908
3	2242	907
4	6112	907
0	8288	907

Stop Event

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

Calls

Call 1

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

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

localize264.0ms (2.1%)

Memory

14.4MiB live, 205.8MiB allocated; 32ms collecting garbage

Localize:

Found 17 expressions of interest:

New	Metric	Score
accuracy	0.4271851562950724	(pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64))
accuracy	0.4519501953688405	(pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))
accuracy	0.5992879952746731	(-.f64 (cos.f64 delta) (/.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)))))
accuracy	10.193236062035124	(/.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))))
accuracy	0.14453125	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
accuracy	0.16796875	(*.f64 (sin.f64 delta) (cos.f64 phi1))
accuracy	0.18587875976844204	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.6875444603181066	(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))
accuracy	0.14453125	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
accuracy	0.18587875976844204	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.5992879952746731	(-.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)))
accuracy	29.16313131434299	#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))
accuracy	20.67398371755595	#s(approx (+ 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.1838938109259798	(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)))
accuracy	0.18587875976844204	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.205410009768442	(.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1))
accuracy	0.5992879952746731	(-.f64 (cos.f64 delta) (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))))

Samples

146.0ms

256×

valid

Compiler

Compiled 895 to 58 computations (93.5% saved)

Precisions

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

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

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

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

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

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

ival-pow: 7.0ms (7.5% of total)

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

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

ival-pow2: 2.0ms (2.1% of total)

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

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

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

series139.0ms (1.1%)

Memory

0.9MiB live, 138.4MiB allocated; 20ms collecting garbage

Counts

22 → 177

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) #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))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (- (* (cos phi1) (* (cos theta) (sin delta))) (* (cos delta) (sin phi1)))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) #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))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (- (* (cos phi1) (* (cos theta) (sin delta))) (* (cos delta) (sin phi1)))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) #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))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (- (* (cos phi1) (* (cos theta) (sin delta))) (* (cos delta) (sin phi1)))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) #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))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (- (* (cos phi1) (* (cos theta) (sin delta))) (* (cos delta) (sin phi1)))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))) lambda1)) 1)))))
#s(approx (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin 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)) (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)) (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)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (cos delta))))
#s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* -1/3 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* 2/45 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (cos delta))) (* 2/45 (cos delta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (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 theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) #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))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (- (* (cos phi1) (* (cos theta) (sin delta))) (* (cos delta) (sin phi1)))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))))))
#s(approx (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin 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)) (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)) (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)) (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 (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (sin delta) (cos phi1)) #s(hole binary64 (sin delta)))
#s(approx (* (sin delta) (cos phi1)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))))
#s(approx (* (sin delta) (cos phi1)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))))
#s(approx (* (sin delta) (cos phi1)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos theta) (sin delta))) (* -1/6 (* (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)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* phi1 (- (/ (pow (cos delta) 3) (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1 (/ (* (cos delta) (- (+ (* -3/2 (* (cos theta) (sin delta))) (* -1/6 (* (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)))) (+ (* 1/6 (cos delta)) (+ (* 1/2 (cos 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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #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 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 (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 (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) #s(hole binary64 (* (cos delta) (pow (sin phi1) 2))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (sin delta) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (- (* (cos phi1) (* (cos theta) (sin delta))) (* (cos delta) (sin phi1)))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))))
#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #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))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (- (* (cos phi1) (* (cos theta) (sin delta))) (* (cos delta) (sin phi1)))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))
#s(approx (pow (* (cos delta) (sin phi1)) 3) #s(hole binary64 (* (pow (cos delta) 3) (pow (sin phi1) 3))))
#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 (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin 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)) (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)) (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)) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow delta 2) (pow (sin phi1) 2))) (pow (sin phi1) 2))))
#s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* 1/24 (* (pow delta 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2))))
#s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (pow (sin phi1) 2))) (* 1/24 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin 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)) (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)) (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)) (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 (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ 1 (* -1 (pow (sin phi1) 2)))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))))
#s(approx (* (sin delta) (cos phi1)) #s(hole binary64 (* delta (cos phi1))))
#s(approx (* (sin delta) (cos phi1)) #s(hole binary64 (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))))
#s(approx (* (sin delta) (cos phi1)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))))
#s(approx (* (sin delta) (cos phi1)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (+ (* delta (- (* delta (- (* -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)))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -3/2 (pow (sin phi1) 2)) (* delta (- (/ (* (pow (cos phi1) 3) (pow (cos theta) 3)) (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/6 (sin phi1)) (* 1/2 (sin phi1))))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (sin phi1))))))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #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 (/ (* (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/6 (sin phi1)) (* 1/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 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 (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 (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin 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))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin 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))))))) (+ (* (cos delta) (pow (sin phi1) 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))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (+ (* (pow theta 2) (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (* (pow theta 2) (- (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (+ (/ (* (cos phi1) (* (sin phi1) (* (+ (* 1/24 (* (cos phi1) (pow (sin delta) 2))) (+ (* 1/24 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* 1/4 (* (cos phi1) (pow (sin delta) 2))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)) (/ (* (cos phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2))))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))
#s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (* (pow theta 2) (- (+ (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (* (pow theta 2) (- (* -61/240 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (+ (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/24 (* (cos phi1) (pow (sin delta) 2))) (+ (* -1/720 (* (cos phi1) (pow (sin delta) 2))) (* -1/720 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)) (+ (/ (* (cos phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (- (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (+ (/ (* (cos phi1) (* (sin phi1) (* (+ (* 1/24 (* (cos phi1) (pow (sin delta) 2))) (+ (* 1/24 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* 1/4 (* (cos phi1) (pow (sin delta) 2))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)) (/ (* (cos phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2))))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (+ (* 1/24 (* (cos phi1) (pow (sin delta) 2))) (+ (* 1/24 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* 1/4 (* (cos phi1) (pow (sin delta) 2))))) (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2))))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))))))) (+ (/ (* (cos phi1) (* (sin phi1) (* (+ (* 1/24 (* (cos phi1) (pow (sin delta) 2))) (+ (* 1/24 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* 1/4 (* (cos phi1) (pow (sin delta) 2))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)) (/ (* (cos phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2))))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))
#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))
#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))
#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (cos phi1) (* (sin phi1) (* (+ (* 1/24 (* (cos phi1) (pow (sin delta) 2))) (+ (* 1/24 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* 1/4 (* (cos phi1) (pow (sin delta) 2))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)) (/ (* (cos phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2))))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2))) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))
#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/24 (* (cos phi1) (pow (sin delta) 2))) (+ (* -1/720 (* (cos phi1) (pow (sin delta) 2))) (* -1/720 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)) (+ (/ (* (cos phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (- (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (+ (/ (* (cos phi1) (* (sin phi1) (* (+ (* 1/24 (* (cos phi1) (pow (sin delta) 2))) (+ (* 1/24 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* 1/4 (* (cos phi1) (pow (sin delta) 2))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)) (/ (* (cos phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2))))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (+ (* 1/24 (* (cos phi1) (pow (sin delta) 2))) (+ (* 1/24 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* 1/4 (* (cos phi1) (pow (sin delta) 2))))) (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2))))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))) (* -61/240 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))))) (+ (/ (* (cos phi1) (* (sin phi1) (* (+ (* 1/24 (* (cos phi1) (pow (sin delta) 2))) (+ (* 1/24 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* 1/4 (* (cos phi1) (pow (sin delta) 2))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2)) (/ (* (cos phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2))))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))) (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))))))) (/ (* (cos phi1) (* (sin phi1) (* (+ (* -1/2 (* (cos phi1) (pow (sin delta) 2))) (* -1/2 (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (pow (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2))) 2))) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (+ (* (cos phi1) (* (sin delta) (- (* (cos phi1) (sin delta)) (* (cos delta) (sin phi1))))) (* (pow (cos delta) 2) (pow (sin phi1) 2)))))))
#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
34.0ms	phi1	@	-inf	((+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (* (* (cos delta) (sin phi1)) (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 phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (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)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) (* (sin delta) (cos phi1)) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow (* (cos delta) (sin phi1)) 3) (pow (* (cos theta) (* (sin delta) (cos phi1))) 3))
17.0ms	theta	@	-inf	((+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (* (* (cos delta) (sin phi1)) (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 phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (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)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) (* (sin delta) (cos phi1)) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow (* (cos delta) (sin phi1)) 3) (pow (* (cos theta) (* (sin delta) (cos phi1))) 3))
15.0ms	delta	@	-inf	((+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (* (* (cos delta) (sin phi1)) (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 phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (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)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) (* (sin delta) (cos phi1)) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow (* (cos delta) (sin phi1)) 3) (pow (* (cos theta) (* (sin delta) (cos phi1))) 3))
12.0ms	phi1	@	inf	((+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (* (* (cos delta) (sin phi1)) (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 phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (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)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) (* (sin delta) (cos phi1)) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow (* (cos delta) (sin phi1)) 3) (pow (* (cos theta) (* (sin delta) (cos phi1))) 3))
11.0ms	delta	@	inf	((+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (* (* (cos delta) (sin phi1)) (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 phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (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)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (neg (sin phi1))) (cos delta)) (* (sin delta) (cos phi1)) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow (* (cos delta) (sin phi1)) 3) (pow (* (cos theta) (* (sin delta) (cos phi1))) 3))

simplify226.0ms (1.8%)

Memory

-13.3MiB live, 170.7MiB allocated; 21ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	912	12548
1	2991	11928
2	7529	11834
0	8163	11335

Stop Event

1×	iter limit
1×	node limit

Counts

177 → 177

Calls

Call 1

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

rewrite204.0ms (1.6%)

Memory

19.2MiB live, 208.2MiB allocated; 23ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	64	650
0	106	479
1	446	478
2	3246	478
0	8717	478

Stop Event

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

Counts

22 → 419

Calls

Call 1

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

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

eval126.0ms (1%)

Memory: -35.5MiB live, 140.7MiB allocated; 64ms collecting garbage
Compiler: Compiled 43 434 to 3 483 computations (92% saved)

prune44.0ms (0.4%)

Memory

27.2MiB live, 74.7MiB allocated; 1ms collecting garbage

Pruning

30 alts after pruning (28 fresh and 2 done)

	Pruned	Kept	Total
New	605	20	625
Fresh	8	8	16
Picked	3	2	5
Done	0	0	0
Total	616	30	646

Accuracy

99.9%

Counts

646 → 30

Alt Table

Click to see full alt table

Status	Accuracy	Program
	47.4%	(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 delta) (cos.f64 theta) (.f64 (cos.f64 delta) phi1)) phi1)))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 delta) (cos.f64 theta) (.f64 (cos.f64 delta) phi1)) phi1)))) lambda1))
	51.2%	(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
	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)
	84.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 delta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
	93.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta)) (*.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.7%	(+.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 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))))))
	93.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 phi1 phi1)))))))
▶	76.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 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 (.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)))))))
	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 (cos.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))))
	88.9%	(+.f64 lambda1 (atan2.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.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	84.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	94.9%	(+.f64 lambda1 (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)) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
▶	89.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	94.9%	(+.f64 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)) (sin phi1)))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
▶	64.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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)))))
	75.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)))) (-.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)))))
	77.0%	(+.f64 lambda1 (atan2.f64 #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)) (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))))
	77.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (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))))))
	87.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (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))))
	76.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (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)))))
▶	33.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (fma.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))) (cos.f64 delta))))
	33.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
✓	67.7%	#s(approx (+ 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 273 to 1 749 computations (46.6% saved)

simplify138.0ms (1.1%)

Memory

-1.9MiB live, 95.0MiB allocated; 10ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
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)) (fma.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))) (cos.f64 delta)))
cost-diff	0	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (fma.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))) (cos.f64 delta))))
cost-diff	0	(*.f64 (sin.f64 theta) (sin.f64 delta))
cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 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) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
cost-diff	0	#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))
cost-diff	0	(.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1))
cost-diff	0	(atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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))))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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)))))
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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))
cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
cost-diff	0	(*.f64 (sin.f64 theta) (sin.f64 delta))
cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.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))))))))))
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 (cos.f64 (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	94	1089
0	155	1081
1	295	1081
2	706	1081
3	2800	1076
4	7786	1076
0	8065	1073

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

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

localize507.0ms (4%)

Memory

-3.3MiB live, 372.1MiB allocated; 34ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.14453125	(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
accuracy	0.18587875976844204	(*.f64 (sin.f64 delta) (sin.f64 theta))
accuracy	0.6875444603181066	(fma.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))) (cos.f64 delta))
accuracy	42.14420064745335	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (fma.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))) (cos.f64 delta))))
accuracy	0.1838938109259798	(fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta))))
accuracy	0.18587875976844204	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.5992879952746731	(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))
accuracy	29.0890594613792	#s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))
accuracy	0.5992879952746731	(-.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)))
accuracy	4.513730074993493	(.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta))
accuracy	29.16313131434299	#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))
accuracy	30.675651200969224	#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))
accuracy	0.13987248016428752	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))
accuracy	0.14453125	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
accuracy	0.18587875976844204	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	25.5341282016238	#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))
accuracy	0.30610103731422444	(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))))))
accuracy	0.529172679779545	(acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))))
accuracy	0.5992879952746731	(-.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)))))))))
accuracy	16.454446891559883	(cos.f64 (acos.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))

Samples

245.0ms	67×	1	valid
164.0ms	189×	0	valid

Compiler

Compiled 945 to 77 computations (91.9% saved)

Precisions

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

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

ival-mult: 67.0ms (20% of total)

ival-cos: 67.0ms (20% of total)

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

adjust: 21.0ms (6.3% of total)

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

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

ival-pow: 10.0ms (3% of total)

ival-asin: 9.0ms (2.7% of total)

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

const: 4.0ms (1.2% of total)

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

ival-div: 2.0ms (0.6% 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)

series106.0ms (0.8%)

Memory

26.7MiB live, 117.1MiB allocated; 7ms collecting garbage

Counts

28 → 193

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

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

Calls

15 calls:

Time	Variable		Point	Expression
28.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (cos (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin 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)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (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 phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (sin delta) (sin theta)) (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (- (cos delta) (* (sin phi1) (sin (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* -1/6 (* theta theta)) 1) (sin delta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* (cos delta) (sin phi1)) (sin phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (cos delta)))
20.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (cos (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin 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)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (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 phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (sin delta) (sin theta)) (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (- (cos delta) (* (sin phi1) (sin (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* -1/6 (* theta theta)) 1) (sin delta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* (cos delta) (sin phi1)) (sin phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (cos delta)))
8.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (cos (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin 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)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (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 phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (sin delta) (sin theta)) (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (- (cos delta) (* (sin phi1) (sin (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* -1/6 (* theta theta)) 1) (sin delta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* (cos delta) (sin phi1)) (sin phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (cos delta)))
8.0ms	theta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (cos (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin 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)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (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 phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (sin delta) (sin theta)) (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (- (cos delta) (* (sin phi1) (sin (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* -1/6 (* theta theta)) 1) (sin delta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* (cos delta) (sin phi1)) (sin phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (cos delta)))
8.0ms	theta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (cos (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin 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)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (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 phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (cos delta))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (sin delta) (sin theta)) (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))) (- (cos delta) (* (sin phi1) (sin (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))))))))) (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (asin (cos (acos (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* -1/6 (* theta theta)) 1) (sin delta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (* (cos delta) (sin phi1)) (sin phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (+ (* (neg (sin phi1)) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (cos delta)))

simplify258.0ms (2.1%)

Memory

-7.3MiB live, 285.3MiB allocated; 44ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	826	10749
1	2615	10277
2	6674	10194
0	8532	9707

Stop Event

1×	iter limit
1×	node limit

Counts

193 → 193

Calls

Call 1

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

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

rewrite147.0ms (1.2%)

Memory

-9.1MiB live, 129.6MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	94	838
0	155	806
1	607	690
0	4288	690

Stop Event

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

Counts

28 → 318

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

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

eval87.0ms (0.7%)

Memory: -27.8MiB live, 115.8MiB allocated; 11ms collecting garbage
Compiler: Compiled 34 505 to 2 673 computations (92.3% saved)

prune72.0ms (0.6%)

Memory

35.6MiB live, 83.1MiB allocated; 1ms collecting garbage

Pruning

41 alts after pruning (39 fresh and 2 done)

	Pruned	Kept	Total
New	478	21	499
Fresh	5	18	23
Picked	4	1	5
Done	1	1	2
Total	488	41	529

Accuracy

99.9%

Counts

529 → 41

Alt Table

Click to see full alt table

Status	Accuracy	Program
	55.9%	(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))) #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) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))) lambda1))
	51.2%	(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
▶	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)
	84.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 delta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
	93.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta)) (*.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 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
	99.7%	(+.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 2 binary64)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta))))))
	93.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 phi1 phi1)))))))
	99.7%	(+.f64 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 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	50.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 (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 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	88.9%	(+.f64 lambda1 (atan2.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.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	84.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	94.9%	(+.f64 lambda1 (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)) (sin phi1))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
▶	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	89.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	89.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	73.4%	(+.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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	76.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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))))))
▶	75.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 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 (sin.f64 delta) (cos.f64 theta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1)))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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))))))
	72.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (neg.f64 (sin.f64 phi1)) (.f64 (neg.f64 delta) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) delta (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
	68.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	58.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 #s(approx ( (+ (* -1/6 (* theta theta)) 1) (sin delta)) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
	75.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)))) (-.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)))))
	77.0%	(+.f64 lambda1 (atan2.f64 #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)) (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))))
	77.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (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))))))
	87.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (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))))
	76.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (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)))))
▶	75.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx ( (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
	79.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	72.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	74.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	76.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
▶	86.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
✓	33.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (fma.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))) (cos.f64 delta))))
	33.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
✓	67.7%	#s(approx (+ 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 048 to 2 679 computations (46.9% saved)

simplify165.0ms (1.3%)

Memory

-23.9MiB live, 118.1MiB allocated; 9ms collecting garbage

Localize:

Found 20 expressions of interest:

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

Iter	Nodes	Cost
0	92	1285
0	151	1281
1	279	1281
2	733	1281
3	3021	1276
0	8213	1270

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

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

localize299.0ms (2.4%)

Memory

22.0MiB live, 213.0MiB allocated; 23ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.5992879952746731	(-.f64 (cos.f64 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 (sin.f64 delta) (cos.f64 theta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1)))
accuracy	4.513730074993493	(.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta))
accuracy	29.782690800793702	#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1))
accuracy	30.675651200969224	#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))
accuracy	0.5992879952746731	(-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))
accuracy	7.7495987366476955	(.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
accuracy	28.042121490992706	#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 theta) (sin.f64 delta))))
accuracy	29.0890594613792	#s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))
accuracy	0.14453125	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
accuracy	0.18587875976844204	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.236660009768442	(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
accuracy	28.508343225263946	#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
accuracy	0.13987248016428752	(atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))
accuracy	0.18587875976844204	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	22.7001710114199	#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
accuracy	25.5341282016238	#s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))
accuracy	0.16796875	(*.f64 (sin.f64 delta) (cos.f64 phi1))
accuracy	0.18587875976844204	(*.f64 (sin.f64 theta) (sin.f64 delta))
accuracy	0.26171875	(.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.5992879952746731	(-.f64 (cos.f64 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

229.0ms

256×

valid

Compiler

Compiled 1 038 to 83 computations (92% saved)

Precisions

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

ival-mult: 65.0ms (33.5% of total)

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

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

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

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

const: 9.0ms (4.6% of total)

ival-pow: 7.0ms (3.6% of total)

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

ival-pow2: 4.0ms (2.1% of total)

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

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

exact: 1.0ms (0.5% of total)

adjust: 0.0ms (0% of total)

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

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

series104.0ms (0.8%)

Memory

9.7MiB live, 153.7MiB allocated; 12ms collecting garbage

Counts

28 → 188

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

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

Calls

15 calls:

Time	Variable		Point	Expression
13.0ms	lambda1	@	0	((+ (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 delta) (sin theta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (* (* (sin delta) (sin theta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (+ (* -1/2 (* phi1 phi1)) 1) (* (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 theta) (sin delta)) (cos phi1)) (* (sin theta) (sin 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)) (* (sin delta) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow (cos phi1) 2) (* (* (cos delta) (sin phi1)) (sin phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* -1/6 (* theta theta)) 1) (sin delta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))
9.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 delta) (sin theta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (* (* (sin delta) (sin theta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (+ (* -1/2 (* phi1 phi1)) 1) (* (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 theta) (sin delta)) (cos phi1)) (* (sin theta) (sin 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)) (* (sin delta) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow (cos phi1) 2) (* (* (cos delta) (sin phi1)) (sin phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* -1/6 (* theta theta)) 1) (sin delta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))
9.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 delta) (sin theta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (* (* (sin delta) (sin theta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (+ (* -1/2 (* phi1 phi1)) 1) (* (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 theta) (sin delta)) (cos phi1)) (* (sin theta) (sin 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)) (* (sin delta) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow (cos phi1) 2) (* (* (cos delta) (sin phi1)) (sin phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* -1/6 (* theta theta)) 1) (sin delta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))
9.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 delta) (sin theta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (* (* (sin delta) (sin theta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (+ (* -1/2 (* phi1 phi1)) 1) (* (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 theta) (sin delta)) (cos phi1)) (* (sin theta) (sin 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)) (* (sin delta) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow (cos phi1) 2) (* (* (cos delta) (sin phi1)) (sin phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* -1/6 (* theta theta)) 1) (sin delta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))
9.0ms	theta	@	0	((+ (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 delta) (sin theta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (* (* (sin delta) (sin theta)) (cos phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))))) (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (+ (* -1/2 (* phi1 phi1)) 1) (* (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 theta) (sin delta)) (cos phi1)) (* (sin theta) (sin 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)) (* (sin delta) (cos phi1)) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow (cos phi1) 2) (* (* (cos delta) (sin phi1)) (sin phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* -1/6 (* theta theta)) 1) (sin delta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))

simplify198.0ms (1.6%)

Memory

-17.0MiB live, 206.2MiB allocated; 16ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	819	10857
1	2604	10335
0	8296	9872

Stop Event

1×	iter limit
1×	node limit

Counts

188 → 188

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

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

rewrite179.0ms (1.4%)

Memory

29.4MiB live, 170.8MiB allocated; 44ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	92	1005
0	151	993
1	567	767
0	4362	767

Stop Event

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

Counts

28 → 230

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

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

eval89.0ms (0.7%)

Memory: 3.1MiB live, 94.3MiB allocated; 7ms collecting garbage
Compiler: Compiled 38 520 to 2 416 computations (93.7% saved)

prune122.0ms (1%)

Memory

10.2MiB live, 109.0MiB allocated; 42ms collecting garbage

Pruning

52 alts after pruning (49 fresh and 3 done)

	Pruned	Kept	Total
New	443	31	474
Fresh	16	18	34
Picked	3	2	5
Done	1	1	2
Total	463	52	515

Accuracy

99.9%

Counts

515 → 52

Alt Table

Click to see full alt table

Status	Accuracy	Program
	53.2%	(/.f64 (-.f64 (pow.f64 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 #s(approx ( (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))) lambda1))
	51.2%	(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) (-.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (cos.f64 delta))) lambda1) (*.f64 lambda1 lambda1)))
	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta))) (/.f64 (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta))))) lambda1)
✓	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)
	84.6%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) #s(approx ( (sin delta) (cos phi1)) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 delta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	93.3%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) #s(approx ( (sin delta) (cos phi1)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	93.9%	(+.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))) (* (cos delta) (sin phi1))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
	94.9%	(+.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))) (* (cos delta) (sin phi1))) (sin phi1)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))) lambda1)
	87.1%	(+.f64 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (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 (.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))))))
	93.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 phi1 phi1)))))))
	99.7%	(+.f64 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 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	50.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 (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 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	88.9%	(+.f64 lambda1 (atan2.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)))))))))
	72.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) phi1)) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) phi1))) #s(literal 2 binary64)))))
	76.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (-.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))))))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
	68.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(approx (pow (cos phi1) 2) (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))))))
	74.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #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))))))
	68.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(approx (pow (cos phi1) 2) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))))
	76.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(approx (pow (cos phi1) 2) #s(literal 1 binary64)))))
	89.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	89.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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))))))
	72.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (neg.f64 (sin.f64 phi1)) (.f64 (neg.f64 delta) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) delta (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
	68.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	58.5%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 #s(approx ( (+ (* -1/6 (* theta theta)) 1) (sin delta)) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
	51.6%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 #s(approx ( (+ (* -1/6 (* theta theta)) 1) (sin delta)) (.f64 (fma.f64 #s(literal -1/6 binary64) (fma.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 delta delta) (.f64 theta theta)) #s(literal 1 binary64)) delta)) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1)))))
	66.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 #s(approx ( (+ (* -1/6 (* theta theta)) 1) (sin delta)) (.f64 (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) (sin.f64 delta))) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1)))))
	75.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)))) (-.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)))))
	77.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (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))))))
	81.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx ( (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 phi1 phi1)))))))
	69.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 delta)))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
	75.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
	72.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	77.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	78.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	74.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	83.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))))
	75.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
✓	86.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	61.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (+ (* -1/2 (* phi1 phi1)) 1) (* (sin theta) (sin delta))) (.f64 (fma.f64 (/.f64 (sin.f64 theta) phi1) (/.f64 (sin.f64 delta) phi1) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 theta))) (.f64 phi1 phi1)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
	71.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 delta)) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	73.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #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 (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	74.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	72.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
	33.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
	33.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 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.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)))))
✓	67.7%	#s(approx (+ 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 9 589 to 2 460 computations (74.3% saved)

regimes255.0ms (2%)

Memory

-34.4MiB live, 151.8MiB allocated; 12ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

55.0ms	lambda1
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))))))))
38.0ms	phi2
22.0ms	phi1
22.0ms	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)

regimes138.0ms (1.1%)

Memory

37.7MiB live, 129.5MiB allocated; 4ms collecting garbage

Counts

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

25.0ms	phi2
19.0ms	lambda1
18.0ms	phi1
18.0ms	delta
18.0ms	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)

regimes170.0ms (1.4%)

Memory

-21.7MiB live, 118.8MiB allocated; 9ms 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 delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #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 (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 delta)) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(approx (pow (cos phi1) 2) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(approx (pow (cos phi1) 2) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #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))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(approx (pow (cos phi1) 2) (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))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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 #s(approx ( (sin theta) (sin delta)) (.f64 #s(approx ( (+ (* -1/6 (* theta theta)) 1) (sin delta)) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) phi1)) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) phi1))) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (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 (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (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 (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (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 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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 (.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 delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 delta)))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 #s(approx ( (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))) lambda1))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx ( (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx ( (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 phi1 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 #s(approx ( (+ (* -1/6 (* theta theta)) 1) (sin delta)) (.f64 (fma.f64 #s(literal -1/6 binary64) (fma.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 delta delta) (.f64 theta theta)) #s(literal 1 binary64)) delta)) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) 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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (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 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)) (sin phi1)))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (.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)) (fma.f64 (fma.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (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) #s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.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) #s(approx ( (sin delta) (cos phi1)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (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)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 delta))) (*.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 (fma.f64 (cos.f64 theta) #s(approx ( (sin delta) (cos phi1)) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 delta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 #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)) (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 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 phi1 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (neg.f64 (sin.f64 phi1)) (.f64 (neg.f64 delta) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) delta (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 #s(approx ( (+ (* -1/6 (* theta theta)) 1) (sin delta)) (.f64 (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) (sin.f64 delta))) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 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 (sin.f64 delta) (cos.f64 theta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.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)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (fma.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))) (cos.f64 delta))))
(+.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))))

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:

47.0ms	phi1
28.0ms	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
22.0ms	theta
17.0ms	phi2
17.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)

regimes126.0ms (1%)

Memory

30.3MiB live, 125.4MiB allocated; 7ms 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 delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #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 (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 delta)) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(approx (pow (cos phi1) 2) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(approx (pow (cos phi1) 2) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #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))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) #s(approx (pow (cos phi1) 2) (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))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (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) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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 #s(approx ( (sin theta) (sin delta)) (.f64 #s(approx ( (+ (* -1/6 (* theta theta)) 1) (sin delta)) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) phi1)) (sin.f64 (+.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1) phi1))) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (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 (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (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 (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (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 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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 (.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 delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 delta)))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 #s(approx ( (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))) lambda1))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.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 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx ( (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx ( (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 phi1 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 #s(approx ( (+ (* -1/6 (* theta theta)) 1) (sin delta)) (.f64 (fma.f64 #s(literal -1/6 binary64) (fma.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 delta delta) (.f64 theta theta)) #s(literal 1 binary64)) delta)) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) 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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (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 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)) (sin phi1)))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))) (.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)) (fma.f64 (fma.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))
(+.f64 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (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) #s(approx (* (+ (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1))) (sin phi1)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.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) #s(approx ( (sin delta) (cos phi1)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (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)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 theta) #s(approx (* (sin delta) (cos phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (sin.f64 delta))) (*.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 (fma.f64 (cos.f64 theta) #s(approx ( (sin delta) (cos phi1)) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sin.f64 delta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 #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)) (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 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (.f64 (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 phi1 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (neg.f64 (sin.f64 phi1)) (.f64 (neg.f64 delta) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) delta (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 #s(approx ( (+ (* -1/6 (* theta theta)) 1) (sin delta)) (.f64 (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) (sin.f64 delta))) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)) (sin.f64 delta)) theta)) (cos.f64 phi1)) (-.f64 (cos.f64 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 (sin.f64 delta) (cos.f64 theta)) #s(literal -2/3 binary64) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1) #s(approx (* (* (cos delta) (sin phi1)) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.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)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (fma.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (fma.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))) (cos.f64 delta))))

Outputs

(+.f64 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)) (sin phi1)))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))

Calls

7 calls:

20.0ms	lambda1
18.0ms	delta
17.0ms	phi2
17.0ms	theta
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
94.9%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
94.9%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
94.9%	1	`lambda1`
94.9%	1	`phi1`
94.9%	1	`phi2`
94.9%	1	`delta`
94.9%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes114.0ms (0.9%)

Memory

-5.2MiB live, 126.6MiB allocated; 13ms collecting garbage

Counts

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

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:

23.0ms	theta
20.0ms	phi2
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)))))))))
12.0ms	delta
12.0ms	phi1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes102.0ms (0.8%)

Memory

-9.3MiB live, 89.6MiB allocated; 101ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

7 calls:

45.0ms	delta
13.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	lambda1
8.0ms	theta
8.0ms	phi2

Results

Accuracy	Segments	Branch
89.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))))))))`
89.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)))))))))`
89.2%	1	`phi1`
89.2%	1	`phi2`
89.2%	1	`lambda1`
93.3%	3	`delta`
89.2%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes32.0ms (0.3%)

Memory

0.3MiB live, 45.7MiB allocated; 6ms collecting garbage

Counts

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

Outputs

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

Calls

5 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)))))))))
5.0ms	delta
5.0ms	theta
5.0ms	lambda1
5.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
89.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))))))))`
89.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)))))))))`
89.2%	1	`lambda1`
89.2%	1	`theta`
89.2%	1	`delta`

Compiler

Compiled 67 to 60 computations (10.4% saved)

regimes38.0ms (0.3%)

Memory

9.5MiB live, 55.1MiB allocated; 5ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes36.0ms (0.3%)

Memory

-6.1MiB live, 47.0MiB allocated; 7ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes43.0ms (0.3%)

Memory

-19.9MiB live, 25.8MiB allocated; 5ms collecting garbage

Counts

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

Outputs

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

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

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

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	lambda1
2.0ms	phi2
2.0ms	phi1

Results

Accuracy	Segments	Branch
74.6%	1	`phi2`
80.3%	3	`theta`
76.9%	2	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
76.5%	2	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
76.3%	2	`lambda1`
80.2%	3	`delta`
77.8%	3	`phi1`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes4.0ms (0%)

Memory

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

Counts

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

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

Outputs

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

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

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

Calls

2 calls:

2.0ms	theta
2.0ms	delta

Results

Accuracy	Segments	Branch
80.2%	3	`delta`
80.2%	3	`theta`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes10.0ms (0.1%)

Memory

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

Counts

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

Outputs

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

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

Calls

7 calls:

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	phi2
1.0ms	theta

Results

Accuracy	Segments	Branch
72.6%	1	`phi2`
72.6%	1	`phi1`
72.6%	1	`lambda1`
72.6%	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)))))))))`
72.6%	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))))))))`
72.6%	1	`delta`
75.2%	2	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes8.0ms (0.1%)

Memory

18.2MiB live, 18.2MiB 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	delta
1.0ms	phi2
1.0ms	phi1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

bsearch115.0ms (0.9%)

Memory

-36.7MiB live, 105.8MiB allocated; 21ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
34.0ms	31774162.85234371	1676190985.2800448
66.0ms	-1.7626993443245208e+28	-75162987464.58989

Samples

87.0ms

272×

valid

Compiler

Compiled 2 586 to 1 289 computations (50.2% saved)

Precisions

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

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

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

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

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

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

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

ival-sub: 1.0ms (1.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

28.5MiB live, 74.2MiB allocated; 8ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
42.0ms	1.2304641489654816e+26	8.983201794045172e+27
28.0ms	-582446.4918859133	-92484.47062263396

Samples

60.0ms

208×

valid

Compiler

Compiled 2 184 to 1 049 computations (52% saved)

Precisions

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

ival-cos: 22.0ms (41.6% of total)

ival-sin: 17.0ms (32.1% of total)

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

bsearch42.0ms (0.3%)

Memory

-9.7MiB live, 36.9MiB allocated; 2ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.2304641489654816e+26	8.983201794045172e+27
38.0ms	-5.356390744710778e+94	-4.4100820914986074e+92

Samples

33.0ms

112×

valid

Compiler

Compiled 2 304 to 1 095 computations (52.5% saved)

Precisions

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

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

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

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

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

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

ival-atan2: 1.0ms (3.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)

bsearch32.0ms (0.3%)

Memory

-11.4MiB live, 35.1MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
30.0ms	1.2304641489654816e+26	8.983201794045172e+27

Samples

25.0ms

96×

valid

Compiler

Compiled 848 to 472 computations (44.3% saved)

Precisions

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

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

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

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

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

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

ival-atan2: 1.0ms (4.5% 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)

simplify93.0ms (0.7%)

Memory

13.6MiB live, 65.0MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	136	1138
1	234	1138
2	542	1138
3	2141	1138
4	5941	1138

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) (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))))))
(+.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)) (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 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)) (sin phi1)))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(if (<=.f64 delta #s(literal -76000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 32000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(if (<=.f64 theta #s(literal -240000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #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 (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 154999999999999997936402432 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))))
(if (<=.f64 theta #s(literal -449999999999999990571761329249584877087885744056395726988802038791111555935960497945313280000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 154999999999999997936402432 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))))
(if (<=.f64 theta #s(literal 1900000000000000107709726720 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) #s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (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))))))
(+.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)) (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 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)) (sin phi1)))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(if (<=.f64 delta #s(literal -76000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 32000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))))
(if (or (<=.f64 delta #s(literal -76000000000 binary64)) (not (<=.f64 delta #s(literal 32000000 binary64)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (/ (* (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))
(if (<=.f64 theta #s(literal -240000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #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 (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 154999999999999997936402432 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))))
(if (<=.f64 theta #s(literal -449999999999999990571761329249584877087885744056395726988802038791111555935960497945313280000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 154999999999999997936402432 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta))))))
(if (or (<=.f64 theta #s(literal -449999999999999990571761329249584877087885744056395726988802038791111555935960497945313280000 binary64)) (not (<=.f64 theta #s(literal 154999999999999997936402432 binary64)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))))
(if (<=.f64 theta #s(literal 1900000000000000107709726720 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta))) #s(approx (- (cos delta) (/ ( (+ (pow (* (cos theta) (* (sin delta) (cos phi1))) 3) (pow (* (cos delta) (sin phi1)) 3)) (sin phi1)) (+ (* (* (cos theta) (* (sin delta) (cos phi1))) (- (* (cos theta) (* (sin delta) (cos phi1))) (* (cos delta) (sin phi1)))) (pow (* (cos delta) (sin phi1)) 2)))) (cos.f64 delta)))) #s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

derivations450.0ms (3.6%)

Memory

15.6MiB live, 296.7MiB allocated; 26ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 141 to 141 computations (87.6% saved)

preprocess108.0ms (0.9%)

Memory: 8.1MiB live, 103.6MiB allocated; 19ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 2 414 to 370 computations (84.7% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.7s (13.9%)

sample3.8s (30.6%)

explain355.0ms (2.8%)

preprocess212.0ms (1.7%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify169.0ms (1.3%)

localize83.0ms (0.7%)

series52.0ms (0.4%)

simplify161.0ms (1.3%)

rewrite225.0ms (1.8%)

eval46.0ms (0.4%)

prune30.0ms (0.2%)

simplify169.0ms (1.3%)

localize264.0ms (2.1%)

series139.0ms (1.1%)

simplify226.0ms (1.8%)

rewrite204.0ms (1.6%)

eval126.0ms (1%)

prune44.0ms (0.4%)

simplify138.0ms (1.1%)

localize507.0ms (4%)

series106.0ms (0.8%)

simplify258.0ms (2.1%)

rewrite147.0ms (1.2%)

eval87.0ms (0.7%)

prune72.0ms (0.6%)

simplify165.0ms (1.3%)

localize299.0ms (2.4%)

series104.0ms (0.8%)

simplify198.0ms (1.6%)

rewrite179.0ms (1.4%)

eval89.0ms (0.7%)

prune122.0ms (1%)

regimes255.0ms (2%)

regimes138.0ms (1.1%)

regimes170.0ms (1.4%)

regimes126.0ms (1%)

regimes114.0ms (0.9%)

regimes102.0ms (0.8%)

regimes32.0ms (0.3%)

regimes38.0ms (0.3%)

regimes36.0ms (0.3%)

regimes43.0ms (0.3%)

regimes4.0ms (0%)

regimes10.0ms (0.1%)

regimes8.0ms (0.1%)

bsearch115.0ms (0.9%)

bsearch75.0ms (0.6%)

bsearch42.0ms (0.3%)

bsearch32.0ms (0.3%)

simplify93.0ms (0.7%)

derivations450.0ms (3.6%)

preprocess108.0ms (0.9%)

end0.0ms (0%)

Profiling