Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze1.3s (11.8%)

Memory

52.9MiB live, 2 404.8MiB allocated; 255ms 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.2s (28.1%)

Memory

58.6MiB live, 7 046.9MiB allocated; 744ms collecting garbage

Samples

2.6s

8 256×

valid

Precisions

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

ival-sin: 859.0ms (39.7% of total)

ival-cos: 680.0ms (31.4% of total)

ival-mult!: 292.0ms (13.5% of total)

ival-asin: 148.0ms (6.8% of total)

ival-add!: 86.0ms (4% of total)

ival-atan2: 75.0ms (3.5% of total)

ival-sub!: 21.0ms (1% of total)

adjust: 2.0ms (0.1% of total)

Bogosity

explain423.0ms (3.8%)

Memory

19.2MiB live, 751.8MiB allocated; 134ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
10	2	(9.168304614192769e+151 -9.790243494716158e+163 3.47717271753844e-153 1.3225800875961285e-38 -1.4197119278200226e+33)	2	(-2.586564728137135e-92 2.1157950029323642e+127 -1.1647453171174321e-269 -4.310401569207535e+88 7.915101509602169e+227)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 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	0	-	0	-	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`
0	0	-	0	-	`(cos.f64 theta)`
0	0	-	0	-	`theta`
0	0	-	0	-	`(sin.f64 theta)`
0	0	-	0	-	`(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))`
0	0	-	0	-	`(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))`
0	0	-	0	-	`delta`
0	0	-	0	-	`(sin.f64 phi1)`
0	0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 delta))`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
0	0	-	0	-	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`
0	0	-	0	-	`(*.f64 (sin.f64 theta) (sin.f64 delta))`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 delta))`
0	0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))`
0	0	-	0	-	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
0	0	-	0	-	`(sin.f64 delta)`
0	0	-	0	-	`(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))`
0	0	-	0	-	`(cos.f64 delta)`
0	0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

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

Confusion

	Predicted +	Predicted -
+	4	1
-	2	249

Precision

0.6666666666666666

Recall

0.8

Confusion?

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

Precision?

0.5

Recall?

0.8

Freqs

test

number	freq
0	250
1	5
2	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

152.0ms	510×	0	valid
17.0ms	2×	1	valid

Compiler

Compiled 431 to 73 computations (83.1% saved)

Precisions

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

ival-sin: 65.0ms (46.6% of total)

ival-cos: 46.0ms (33% of total)

ival-mult!: 13.0ms (9.3% of total)

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

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

ival-add!: 2.0ms (1.4% of total)

ival-sub!: 1.0ms (0.7% of total)

adjust: 0.0ms (0% of total)

preprocess59.0ms (0.5%)

Memory

0.5MiB live, 39.4MiB allocated; 12ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	179	710
1	422	705
2	873	703
3	1685	703
4	3414	703
5	6243	703

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (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.6%

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

Symmetry

(abs phi2)

Compiler

Compiled 66 to 46 computations (30.3% saved)

series52.0ms (0.5%)

Memory

22.6MiB live, 73.1MiB allocated; 14ms collecting garbage

Counts

22 → 146

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

Calls

15 calls:

Time	Variable		Point	Expression
14.0ms	delta	@	-inf	((+ 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)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (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) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
5.0ms	theta	@	0	((+ 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)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (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) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	phi1	@	-inf	((+ 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)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (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) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	phi1	@	inf	((+ 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)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (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) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	delta	@	inf	((+ 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)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (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) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))

rewrite316.0ms (2.8%)

Memory

-11.9MiB live, 191.8MiB allocated; 72ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	636	4513
0	666	4390
1	4002	4276
0	8786	4041

Stop Event

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

Counts

168 → 264

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

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

eval60.0ms (0.5%)

Memory: 10.3MiB live, 99.1MiB allocated; 20ms collecting garbage
Compiler: Compiled 12 738 to 1 974 computations (84.5% saved)

prune35.0ms (0.3%)

Memory

-27.2MiB live, 75.5MiB allocated; 19ms collecting garbage

Pruning

22 alts after pruning (22 fresh and 0 done)

	Pruned	Kept	Total
New	265	22	287
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	266	22	288

Accuracy

99.8%

Counts

288 → 22

Alt Table

Click to see full alt table

Status	Accuracy	Program
	68.4%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	99.5%	(+.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 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	99.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (fma.f64 (sin.f64 delta) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 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.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
▶	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	86.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	82.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1)))))))
	88.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	91.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	80.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (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)))))
	77.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 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
▶	83.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 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	78.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	87.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	32.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))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	99.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
▶	68.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 2 000 to 1 270 computations (36.5% saved)

series90.0ms (0.8%)

Memory

38.3MiB live, 226.4MiB allocated; 21ms collecting garbage

Counts

49 → 322

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

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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 #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 (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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 (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (cos delta))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* -1/6 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* 1/120 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (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) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* phi1 (cos theta)) #s(hole binary64 (* phi1 (cos theta))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* -2/3 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -2/3 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ (cos delta) (* -2/3 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (/ 1 (pow (sin phi1) -1)) #s(hole binary64 phi1))
#s(approx (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ 1 phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ (+ 1 (* 1/6 (pow phi1 2))) phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ (+ 1 (* (pow phi1 2) (+ 1/6 (* 7/360 (pow phi1 2))))) phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ (+ 1 (* (pow phi1 2) (+ 1/6 (* (pow phi1 2) (+ 7/360 (* 31/15120 (pow phi1 2))))))) phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (sin (asin (+ (* (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 (asin (+ (* (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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (* (cos 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 (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* (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) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* -2/3 (* (pow phi1 3) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* (pow phi1 3) (+ (* -2/3 (* (cos theta) (sin delta))) (/ (cos delta) phi1)))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* (pow phi1 3) (+ (* -2/3 (* (cos theta) (sin delta))) (+ (/ (cos delta) phi1) (/ (* (cos theta) (sin delta)) (pow phi1 2)))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (* -2/3 (* (pow phi1 2) (* (cos theta) (sin delta))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (/ (cos delta) phi1)))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (+ (/ (cos delta) phi1) (/ (* (cos theta) (sin delta)) (pow phi1 2)))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (* -2/3 (* phi1 (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (* -2/3 (* (cos theta) (sin delta))) (/ (cos delta) phi1)))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (sin phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ 1 (sin phi1))))
#s(approx (sin (asin (+ (* (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))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* -1 (* (pow phi1 3) (+ (* -1 (/ (cos delta) phi1)) (* 2/3 (* (cos theta) (sin delta))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* -1 (* (pow phi1 3) (+ (* -1 (/ (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1)) phi1)) (* 2/3 (* (cos theta) (sin delta))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (cos delta)) (* -1 (/ (* (cos theta) (sin delta)) phi1))) phi1)) (* -2/3 (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (cos delta) phi1)) (* 2/3 (* (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) #s(hole binary64 delta))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* -1/6 (pow delta 2))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))))
#s(approx delta #s(hole binary64 delta))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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) #s(hole binary64 1))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (cos phi1))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (- (cos delta) (* (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 (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* delta (* phi1 (cos theta)))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* phi1 (cos theta)))) (* phi1 (cos theta))))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* 1/120 (* (pow delta 2) (* phi1 (cos theta))))))))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* phi1 (cos theta)))) (* 1/120 (* phi1 (cos theta)))))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* delta (* phi1 (+ (cos theta) (* -2/3 (* (pow phi1 2) (cos theta)))))) (pow phi1 2))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow phi1 2))) (* phi1 (+ (cos theta) (* -2/3 (* (pow phi1 2) (cos theta))))))) (pow phi1 2))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow phi1 2)) (* delta (* phi1 (+ (* -1/6 (cos theta)) (* 1/9 (* (pow phi1 2) (cos theta)))))))) (* phi1 (+ (cos theta) (* -2/3 (* (pow phi1 2) (cos theta))))))) (pow phi1 2))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 phi1))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ phi1 (* delta (+ (cos theta) (* -2/3 (* (pow phi1 2) (cos theta))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ phi1 (* delta (+ (cos theta) (+ (* -2/3 (* (pow phi1 2) (cos theta))) (* -1/2 (* delta phi1))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ phi1 (* delta (+ (cos theta) (+ (* -2/3 (* (pow phi1 2) (cos theta))) (* delta (+ (* -1/2 phi1) (* delta (+ (* -1/6 (cos theta)) (* 1/9 (* (pow phi1 2) (cos theta)))))))))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 1))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ 1 (* -2/3 (* delta (* phi1 (cos theta)))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ 1 (* delta (+ (* -2/3 (* phi1 (cos theta))) (* -1/2 delta))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ 1 (* delta (+ (* -2/3 (* phi1 (cos theta))) (* delta (- (* 1/9 (* delta (* phi1 (cos theta)))) 1/2)))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* -2/3 (* delta (cos theta)))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* delta (+ (* -2/3 (cos theta)) (* 1/9 (* (pow delta 2) (cos theta)))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* delta (+ (* -2/3 (cos theta)) (* (pow delta 2) (+ (* -1/180 (* (pow delta 2) (cos theta))) (* 1/9 (cos theta))))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* delta (+ (* -2/3 (cos theta)) (* (pow delta 2) (+ (* 1/9 (cos theta)) (* (pow delta 2) (+ (* -1/180 (cos theta)) (* 1/7560 (* (pow delta 2) (cos theta)))))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (sin phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (sin (asin (+ (* (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 (asin (+ (* (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))) #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 (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* -2/3 (* (cos theta) (sin delta)))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (sin theta) #s(hole binary64 theta))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* -1/6 (pow theta 2))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* 1/120 (pow theta 2)) 1/6))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/120 (* -1/5040 (pow theta 2)))) 1/6))))))
#s(approx theta #s(hole binary64 theta))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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 (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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 (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (cos theta) #s(hole binary64 1))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* -1/2 (pow theta 2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* 1/24 (pow theta 2)) 1/2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/24 (* -1/720 (pow theta 2)))) 1/2)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (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 (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (+ (* -1/2 (* phi1 (* (pow theta 2) (sin delta)))) (* phi1 (sin delta)))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* 1/24 (* phi1 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))))))))
#s(approx (* phi1 (cos theta)) #s(hole binary64 phi1))
#s(approx (* phi1 (cos theta)) #s(hole binary64 (+ phi1 (* -1/2 (* phi1 (pow theta 2))))))
#s(approx (* phi1 (cos theta)) #s(hole binary64 (+ phi1 (* (pow theta 2) (+ (* -1/2 phi1) (* 1/24 (* phi1 (pow theta 2))))))))
#s(approx (* phi1 (cos theta)) #s(hole binary64 (+ phi1 (* (pow theta 2) (+ (* -1/2 phi1) (* (pow theta 2) (+ (* -1/720 (* phi1 (pow theta 2))) (* 1/24 phi1))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta)))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* phi1 (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/3 (* (pow phi1 2) (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))))) (* (pow theta 2) (+ (* phi1 (* (pow theta 2) (+ (* -1/36 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta))))) (* phi1 (+ (* -1/2 (sin delta)) (* 1/3 (* (pow phi1 2) (sin delta))))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))))) (* (pow theta 2) (+ (* phi1 (+ (* -1/2 (sin delta)) (* 1/3 (* (pow phi1 2) (sin delta))))) (* (pow theta 2) (+ (* phi1 (* (pow theta 2) (+ (* -1/720 (sin delta)) (* 1/1080 (* (pow phi1 2) (sin delta)))))) (* phi1 (+ (* -1/36 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (sin delta) (+ (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/3 (* (pow phi1 2) (sin delta)))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (sin delta) (+ (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))) (* (pow theta 2) (+ (* -1/2 (sin delta)) (+ (* 1/3 (* (pow phi1 2) (sin delta))) (* (pow theta 2) (+ (* -1/36 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (sin delta) (+ (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))) (* (pow theta 2) (+ (* -1/2 (sin delta)) (+ (* 1/3 (* (pow phi1 2) (sin delta))) (* (pow theta 2) (+ (* -1/36 (* (pow phi1 2) (sin delta))) (+ (* 1/24 (sin delta)) (* (pow theta 2) (+ (* -1/720 (sin delta)) (* 1/1080 (* (pow phi1 2) (sin delta)))))))))))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -2/3 (* phi1 (sin delta))) (* 1/3 (* phi1 (* (pow theta 2) (sin delta))))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -2/3 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/36 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/3 (* phi1 (sin delta)))))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -2/3 (* phi1 (sin delta))) (* (pow theta 2) (+ (* 1/3 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/36 (* phi1 (sin delta))) (* 1/1080 (* phi1 (* (pow theta 2) (sin delta))))))))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* -2/3 (sin delta))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (+ (* -2/3 (sin delta)) (* 1/3 (* (pow theta 2) (sin delta))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (+ (* -2/3 (sin delta)) (* (pow theta 2) (+ (* -1/36 (* (pow theta 2) (sin delta))) (* 1/3 (sin delta)))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (+ (* -2/3 (sin delta)) (* (pow theta 2) (+ (* 1/3 (sin delta)) (* (pow theta 2) (+ (* -1/36 (sin delta)) (* 1/1080 (* (pow theta 2) (sin delta))))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (sin (asin (+ (* (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 (asin (+ (* (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 (asin (+ (* (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))) #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 (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))
#s(approx (cos theta) #s(hole binary64 (cos theta)))

Calls

15 calls:

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

rewrite382.0ms (3.4%)

Memory

-20.1MiB live, 363.8MiB allocated; 36ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1225	12121
0	1315	11644
1	7659	11644
0	8091	11047

Stop Event

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

Counts

371 → 521

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 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.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) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
(cos.f64 delta)
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(sin.f64 phi1)
(.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(cos.f64 theta)
(*.f64 (cos.f64 phi1) (sin.f64 delta))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(+.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 (cos.f64 theta)) (sin.f64 delta))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))))
(-.f64 (cos.f64 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)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))
(.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))
(*.f64 phi1 (cos.f64 theta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.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)))))
(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 (.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))))
(-.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 (.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)))))) (.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))
(.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)
(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)))
(fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) phi1 (cos.f64 delta))
(.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64))
(*.f64 (cos.f64 theta) (sin.f64 delta))
#s(literal -2/3 binary64)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (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 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
(-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64)))
#s(literal 1 binary64)
(pow.f64 (sin.f64 phi1) #s(literal -1 binary64))
#s(literal -1 binary64)
(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 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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 #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 (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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 (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (cos delta))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* -1/6 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* 1/120 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (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) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* phi1 (cos theta)) #s(hole binary64 (* phi1 (cos theta))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* -2/3 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -2/3 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ (cos delta) (* -2/3 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (/ 1 (pow (sin phi1) -1)) #s(hole binary64 phi1))
#s(approx (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ 1 phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ (+ 1 (* 1/6 (pow phi1 2))) phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ (+ 1 (* (pow phi1 2) (+ 1/6 (* 7/360 (pow phi1 2))))) phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ (+ 1 (* (pow phi1 2) (+ 1/6 (* (pow phi1 2) (+ 7/360 (* 31/15120 (pow phi1 2))))))) phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (sin (asin (+ (* (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 (asin (+ (* (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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (* (cos 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 (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* (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) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* -2/3 (* (pow phi1 3) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* (pow phi1 3) (+ (* -2/3 (* (cos theta) (sin delta))) (/ (cos delta) phi1)))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* (pow phi1 3) (+ (* -2/3 (* (cos theta) (sin delta))) (+ (/ (cos delta) phi1) (/ (* (cos theta) (sin delta)) (pow phi1 2)))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (* -2/3 (* (pow phi1 2) (* (cos theta) (sin delta))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (/ (cos delta) phi1)))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (+ (/ (cos delta) phi1) (/ (* (cos theta) (sin delta)) (pow phi1 2)))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (* -2/3 (* phi1 (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (* -2/3 (* (cos theta) (sin delta))) (/ (cos delta) phi1)))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (sin phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ 1 (sin phi1))))
#s(approx (sin (asin (+ (* (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))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* -1 (* (pow phi1 3) (+ (* -1 (/ (cos delta) phi1)) (* 2/3 (* (cos theta) (sin delta))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* -1 (* (pow phi1 3) (+ (* -1 (/ (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1)) phi1)) (* 2/3 (* (cos theta) (sin delta))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (cos delta)) (* -1 (/ (* (cos theta) (sin delta)) phi1))) phi1)) (* -2/3 (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (cos delta) phi1)) (* 2/3 (* (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) #s(hole binary64 delta))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* -1/6 (pow delta 2))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))))
#s(approx delta #s(hole binary64 delta))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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) #s(hole binary64 1))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (cos phi1))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (- (cos delta) (* (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 (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* delta (* phi1 (cos theta)))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* phi1 (cos theta)))) (* phi1 (cos theta))))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* 1/120 (* (pow delta 2) (* phi1 (cos theta))))))))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* phi1 (cos theta)))) (* 1/120 (* phi1 (cos theta)))))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* delta (* phi1 (+ (cos theta) (* -2/3 (* (pow phi1 2) (cos theta)))))) (pow phi1 2))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow phi1 2))) (* phi1 (+ (cos theta) (* -2/3 (* (pow phi1 2) (cos theta))))))) (pow phi1 2))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow phi1 2)) (* delta (* phi1 (+ (* -1/6 (cos theta)) (* 1/9 (* (pow phi1 2) (cos theta)))))))) (* phi1 (+ (cos theta) (* -2/3 (* (pow phi1 2) (cos theta))))))) (pow phi1 2))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 phi1))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ phi1 (* delta (+ (cos theta) (* -2/3 (* (pow phi1 2) (cos theta))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ phi1 (* delta (+ (cos theta) (+ (* -2/3 (* (pow phi1 2) (cos theta))) (* -1/2 (* delta phi1))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ phi1 (* delta (+ (cos theta) (+ (* -2/3 (* (pow phi1 2) (cos theta))) (* delta (+ (* -1/2 phi1) (* delta (+ (* -1/6 (cos theta)) (* 1/9 (* (pow phi1 2) (cos theta)))))))))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 1))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ 1 (* -2/3 (* delta (* phi1 (cos theta)))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ 1 (* delta (+ (* -2/3 (* phi1 (cos theta))) (* -1/2 delta))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ 1 (* delta (+ (* -2/3 (* phi1 (cos theta))) (* delta (- (* 1/9 (* delta (* phi1 (cos theta)))) 1/2)))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* -2/3 (* delta (cos theta)))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* delta (+ (* -2/3 (cos theta)) (* 1/9 (* (pow delta 2) (cos theta)))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* delta (+ (* -2/3 (cos theta)) (* (pow delta 2) (+ (* -1/180 (* (pow delta 2) (cos theta))) (* 1/9 (cos theta))))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* delta (+ (* -2/3 (cos theta)) (* (pow delta 2) (+ (* 1/9 (cos theta)) (* (pow delta 2) (+ (* -1/180 (cos theta)) (* 1/7560 (* (pow delta 2) (cos theta)))))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (sin phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (sin (asin (+ (* (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 (asin (+ (* (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))) #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 (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* -2/3 (* (cos theta) (sin delta)))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (sin theta) #s(hole binary64 theta))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* -1/6 (pow theta 2))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* 1/120 (pow theta 2)) 1/6))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/120 (* -1/5040 (pow theta 2)))) 1/6))))))
#s(approx theta #s(hole binary64 theta))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin 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))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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 (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (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 (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (cos theta) #s(hole binary64 1))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* -1/2 (pow theta 2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* 1/24 (pow theta 2)) 1/2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/24 (* -1/720 (pow theta 2)))) 1/2)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (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 (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (+ (* -1/2 (* phi1 (* (pow theta 2) (sin delta)))) (* phi1 (sin delta)))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* 1/24 (* phi1 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) #s(hole binary64 (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))))))))
#s(approx (* phi1 (cos theta)) #s(hole binary64 phi1))
#s(approx (* phi1 (cos theta)) #s(hole binary64 (+ phi1 (* -1/2 (* phi1 (pow theta 2))))))
#s(approx (* phi1 (cos theta)) #s(hole binary64 (+ phi1 (* (pow theta 2) (+ (* -1/2 phi1) (* 1/24 (* phi1 (pow theta 2))))))))
#s(approx (* phi1 (cos theta)) #s(hole binary64 (+ phi1 (* (pow theta 2) (+ (* -1/2 phi1) (* (pow theta 2) (+ (* -1/720 (* phi1 (pow theta 2))) (* 1/24 phi1))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta)))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* phi1 (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/3 (* (pow phi1 2) (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))))) (* (pow theta 2) (+ (* phi1 (* (pow theta 2) (+ (* -1/36 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta))))) (* phi1 (+ (* -1/2 (sin delta)) (* 1/3 (* (pow phi1 2) (sin delta))))))))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) #s(hole binary64 (+ (* phi1 (+ (sin delta) (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))))) (* (pow theta 2) (+ (* phi1 (+ (* -1/2 (sin delta)) (* 1/3 (* (pow phi1 2) (sin delta))))) (* (pow theta 2) (+ (* phi1 (* (pow theta 2) (+ (* -1/720 (sin delta)) (* 1/1080 (* (pow phi1 2) (sin delta)))))) (* phi1 (+ (* -1/36 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (sin delta) (+ (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/3 (* (pow phi1 2) (sin delta)))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (sin delta) (+ (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))) (* (pow theta 2) (+ (* -1/2 (sin delta)) (+ (* 1/3 (* (pow phi1 2) (sin delta))) (* (pow theta 2) (+ (* -1/36 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) #s(hole binary64 (+ (sin delta) (+ (* phi1 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))) (* (pow theta 2) (+ (* -1/2 (sin delta)) (+ (* 1/3 (* (pow phi1 2) (sin delta))) (* (pow theta 2) (+ (* -1/36 (* (pow phi1 2) (sin delta))) (+ (* 1/24 (sin delta)) (* (pow theta 2) (+ (* -1/720 (sin delta)) (* 1/1080 (* (pow phi1 2) (sin delta)))))))))))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ (cos delta) (* -2/3 (* phi1 (sin delta))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -2/3 (* phi1 (sin delta))) (* 1/3 (* phi1 (* (pow theta 2) (sin delta))))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -2/3 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/36 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/3 (* phi1 (sin delta)))))))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* -2/3 (* phi1 (sin delta))) (* (pow theta 2) (+ (* 1/3 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/36 (* phi1 (sin delta))) (* 1/1080 (* phi1 (* (pow theta 2) (sin delta))))))))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (* -2/3 (sin delta))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (+ (* -2/3 (sin delta)) (* 1/3 (* (pow theta 2) (sin delta))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (+ (* -2/3 (sin delta)) (* (pow theta 2) (+ (* -1/36 (* (pow theta 2) (sin delta))) (* 1/3 (sin delta)))))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) #s(hole binary64 (+ (* -2/3 (sin delta)) (* (pow theta 2) (+ (* 1/3 (sin delta)) (* (pow theta 2) (+ (* -1/36 (sin delta)) (* 1/1080 (* (pow theta 2) (sin delta))))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (sin (asin (+ (* (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 (asin (+ (* (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 (asin (+ (* (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))) #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 (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))
#s(approx (cos theta) #s(hole binary64 (cos theta)))

Outputs
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
phi1
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 delta))
(cos.f64 delta)
(.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) #s(literal 2 binary64))
(fma.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))
(fma.f64 (cos.f64 theta) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))
(-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (neg.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 (neg.f64 delta))) (sin.f64 (+.f64 phi1 (neg.f64 delta)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 phi1 delta))) #s(literal 2 binary64))
(sin.f64 phi1)
(.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))
(.f64 (cos.f64 theta) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))
(.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))
(sin.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 theta))
(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 phi1))) (sin.f64 (+.f64 delta (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) delta)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 delta (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))
(atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (+.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))))
(-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
(.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))
(.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) phi1)
(.f64 (sin.f64 delta) (.f64 (cos.f64 theta) phi1))
(.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta)))
(*.f64 (cos.f64 theta) phi1)
(*.f64 phi1 (cos.f64 theta))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 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 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1)))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 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 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #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 delta) (sin.f64 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 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #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) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #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) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1)))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 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 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #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 delta) (sin.f64 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 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 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 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 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 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1)))))
(atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 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 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))))
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 #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) (sin.f64 delta)) (.f64 #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)))))) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) 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) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))))
(/.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 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 #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) (sin.f64 delta)) (.f64 #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)))))) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) 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) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) 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) (sin.f64 delta)) (.f64 #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)))))) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
(.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1)
(.f64 phi1 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
(fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1) phi1 (.f64 (*.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
(fma.f64 phi1 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1) (.f64 (*.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
(+.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1) phi1) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
(+.f64 (.f64 phi1 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1)) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1)) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta)))) (-.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1) (-.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))
(fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta)))
(fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1))
(fma.f64 (sin.f64 delta) (cos.f64 theta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1))
(fma.f64 phi1 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(-.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1) (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta)))
(+.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))
(+.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1)) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1))) (.f64 (cos.f64 delta) (cos.f64 delta))) (-.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 #s(literal -2/3 binary64) phi1)) (cos.f64 delta)))
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1)) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1)))) (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 #s(literal -2/3 binary64) phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1)) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1)) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1)) (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1)) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1)) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1))) (.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1))))))
(fma.f64 (.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta)) phi1 (cos.f64 delta))
(fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta))
(fma.f64 phi1 (.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta)) (cos.f64 delta))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 phi1) (.f64 (*.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta))))
(+.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 #s(literal -2/3 binary64) phi1)) (cos.f64 delta))
(+.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 #s(literal -2/3 binary64) phi1)))
(.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta))
(.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64))
(.f64 #s(literal -2/3 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))
(.f64 (cos.f64 theta) (.f64 #s(literal -2/3 binary64) (sin.f64 delta)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta))) (.f64 (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)) (-.f64 (.f64 (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))
(fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)))
(fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)))
(fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))
(fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -1/6 binary64) (.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)))
(fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -1/2 binary64) (.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))
(-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))
(+.f64 (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)))
(+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(/.f64 (+.f64 (sin.f64 (-.f64 delta (neg.f64 theta))) (sin.f64 (+.f64 delta (neg.f64 theta)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64))) delta)) (cos.f64 (+.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64))) delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 delta (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
#s(literal -2/3 binary64)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64))) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)))
(/.f64 (.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64)))
(pow.f64 (pow.f64 (sin.f64 phi1) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64)))
#s(literal 1 binary64)
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal -1/2 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (sin.f64 phi1)))
(/.f64 #s(literal 1 binary64) (sin.f64 phi1))
(exp.f64 (*.f64 (log.f64 (sin.f64 phi1)) #s(literal -1 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal -1 binary64))) (sinh.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal -1 binary64))))
#s(literal -1 binary64)
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(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 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(sin.f64 (asin.f64 (fma.f64 (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 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 theta)))
(+.f64 (.f64 (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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(asin.f64 (fma.f64 (cos.f64 theta) (.f64 (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 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(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 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(sin.f64 (asin.f64 (fma.f64 (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 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 theta)))
(+.f64 (.f64 (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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (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) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (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 lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.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))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) 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))))))))) (.f64 (+.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) #s(literal 1 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))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 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))))))))) (neg.f64 (.f64 (-.f64 (neg.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)) #s(literal 1 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))))))))) (neg.f64 (.f64 (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)) #s(literal 1 binary64)) lambda1)))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (neg.f64 (.f64 (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)) #s(literal 1 binary64)) lambda1)))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (sin.f64 delta) (sin.f64 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 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 (sin.f64 delta) (sin.f64 theta)))) (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 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 (fma.f64 (.f64 #s(literal 1/24 binary64) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 (sin.f64 delta) (sin.f64 theta)))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx phi1 phi1)
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 #s(literal -1 binary64) 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))))))) (fma.f64 (-.f64 (neg.f64 (.f64 (cos.f64 delta) phi1)) (.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))))))) (fma.f64 (fma.f64 (-.f64 (neg.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1))) (cos.f64 delta)) phi1 (.f64 (neg.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 (.f64 (cos.f64 theta) phi1) (sin.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 (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #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)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 #s(literal -1/3 binary64) phi1) (cos.f64 delta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (sin phi1) (cos delta)) (*.f64 (cos.f64 delta) phi1))
#s(approx (* (sin phi1) (cos delta)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1)) (cos.f64 delta) (cos.f64 delta)) phi1))
#s(approx (* (sin phi1) (cos delta)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (.f64 #s(literal -1/6 binary64) (cos.f64 delta))) (*.f64 phi1 phi1) (cos.f64 delta)) phi1))
#s(approx (* (sin phi1) (cos delta)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (.f64 #s(literal 1/120 binary64) (cos.f64 delta))) (.f64 phi1 phi1) (.f64 #s(literal -1/6 binary64) (cos.f64 delta))) (*.f64 phi1 phi1) (cos.f64 delta)) phi1))
#s(approx (sin phi1) phi1)
#s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta)) (.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 1/8 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 1/8 binary64) (.f64 (fma.f64 (.f64 #s(literal -1/144 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 #s(literal -1/240 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -1/630 binary64)))) (.f64 phi1 phi1)))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))
#s(approx (* (cos phi1) (sin delta)) (fma.f64 (.f64 (.f64 phi1 phi1) (sin.f64 delta)) #s(literal -1/2 binary64) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin delta)) (fma.f64 (fma.f64 (.f64 (.f64 phi1 phi1) (sin.f64 delta)) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (.f64 phi1 phi1) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin delta)) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 phi1 phi1) (sin.f64 delta)) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) (sin.f64 delta))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (.f64 phi1 phi1) (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)))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#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))))))) (fma.f64 (.f64 #s(literal -1 binary64) 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))))))) (fma.f64 (-.f64 (neg.f64 (.f64 (cos.f64 delta) phi1)) (.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))))))) (fma.f64 (fma.f64 (-.f64 (neg.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1))) (cos.f64 delta)) phi1 (.f64 (neg.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 (.f64 (cos.f64 theta) phi1) (sin.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 (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #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)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 #s(literal -1/3 binary64) phi1) (cos.f64 delta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (* phi1 (cos theta)) (sin delta)) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (* phi1 (cos theta)) (*.f64 (cos.f64 theta) phi1))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1)))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (fma.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (cos.f64 delta))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (fma.f64 (.f64 #s(literal -2/3 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (-.f64 (neg.f64 (.f64 (cos.f64 delta) phi1)) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (-.f64 (neg.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1))) (cos.f64 delta)) phi1 (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -2/3 binary64) phi1) (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 #s(literal -1/3 binary64) phi1) (cos.f64 delta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (/ 1 (pow (sin phi1) -1)) phi1)
#s(approx (/ 1 (pow (sin phi1) -1)) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (/ 1 (pow (sin phi1) -1)) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (/ 1 (pow (sin phi1) -1)) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (pow (sin phi1) -1) (pow.f64 phi1 #s(literal -1 binary64)))
#s(approx (pow (sin phi1) -1) (/.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (pow (sin phi1) -1) (/.f64 (fma.f64 (fma.f64 #s(literal 7/360 binary64) (.f64 phi1 phi1) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (pow (sin phi1) -1) (/.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 31/15120 binary64) (.f64 phi1 phi1) #s(literal 7/360 binary64)) (.f64 phi1 phi1) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (sin (asin (+ (* (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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (asin.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (sin (asin (+ (* (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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 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)))))) (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) (cos delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (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) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (.f64 (.f64 #s(literal -2/3 binary64) (pow.f64 phi1 #s(literal 3 binary64))) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta) (/.f64 (cos.f64 delta) phi1)) (pow.f64 phi1 #s(literal 3 binary64))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (cos.f64 theta) (/.f64 (sin.f64 delta) (*.f64 phi1 phi1)) (/.f64 (cos.f64 delta) phi1))) (pow.f64 phi1 #s(literal 3 binary64))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (.f64 (.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta) (/.f64 (cos.f64 delta) phi1)) (*.f64 phi1 phi1)))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (cos.f64 theta) (/.f64 (sin.f64 delta) (.f64 phi1 phi1)) (/.f64 (cos.f64 delta) phi1))) (.f64 phi1 phi1)))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (.f64 (.f64 #s(literal -2/3 binary64) phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta) (/.f64 (cos.f64 delta) phi1)) phi1))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (/ 1 (pow (sin phi1) -1)) (sin.f64 phi1))
#s(approx (pow (sin phi1) -1) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (neg.f64 (.f64 (fma.f64 (.f64 #s(literal 2/3 binary64) (cos.f64 theta)) (sin.f64 delta) (neg.f64 (/.f64 (cos.f64 delta) phi1))) (pow.f64 phi1 #s(literal 3 binary64)))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (neg.f64 (.f64 (fma.f64 (.f64 #s(literal 2/3 binary64) (cos.f64 theta)) (sin.f64 delta) (neg.f64 (/.f64 (fma.f64 (cos.f64 theta) (/.f64 (sin.f64 delta) phi1) (cos.f64 delta)) phi1))) (pow.f64 phi1 #s(literal 3 binary64)))))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta) (neg.f64 (neg.f64 (/.f64 (fma.f64 (cos.f64 theta) (/.f64 (sin.f64 delta) phi1) (cos.f64 delta)) phi1)))) (*.f64 phi1 phi1)))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (neg.f64 (.f64 (fma.f64 (.f64 #s(literal 2/3 binary64) (cos.f64 theta)) (sin.f64 delta) (neg.f64 (/.f64 (cos.f64 delta) phi1))) phi1)))
#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)) (.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta)))) (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta)))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) delta))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) delta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) (sin.f64 theta) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (sin.f64 theta) (.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (*.f64 delta delta) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (sin.f64 theta) (.f64 #s(literal 1/120 binary64) (sin.f64 theta))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (*.f64 delta delta) (sin.f64 theta)) delta))
#s(approx (sin delta) delta)
#s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta))
#s(approx (sin delta) (.f64 (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 delta delta) #s(literal 1 binary64)) delta))
#s(approx (sin delta) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 delta delta)) #s(literal 1/6 binary64)) (*.f64 delta delta) #s(literal 1 binary64)) delta))
#s(approx delta delta)
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (-.f64 (neg.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 #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (cos delta) #s(literal 1 binary64))
#s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos delta) (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 delta delta) #s(literal 1 binary64)))
#s(approx (cos delta) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 delta delta)) #s(literal 1/2 binary64)) (.f64 delta delta) #s(literal 1 binary64)))
#s(approx (* (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)))))) (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)))))) (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)))))) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) delta)) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))
#s(approx (* (sin phi1) (cos delta)) (fma.f64 (.f64 (.f64 delta delta) (sin.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)))
#s(approx (* (sin phi1) (cos delta)) (fma.f64 (fma.f64 (.f64 (.f64 delta delta) (sin.f64 phi1)) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (.f64 delta delta) (sin.f64 phi1)))
#s(approx (* (sin phi1) (cos delta)) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) (sin.f64 phi1)) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1))) (.f64 delta delta) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (.f64 delta delta) (sin.f64 phi1)))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1) (.f64 (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)))) delta))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 delta delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 delta delta))) (.f64 delta delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) (.f64 (cos.f64 theta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (.f64 delta delta) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (cos.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (cos phi1) (sin delta)) (*.f64 (cos.f64 phi1) delta))
#s(approx (* (cos phi1) (sin delta)) (.f64 (fma.f64 (.f64 (*.f64 delta delta) (cos.f64 phi1)) #s(literal -1/6 binary64) (cos.f64 phi1)) delta))
#s(approx (* (cos phi1) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) (cos.f64 phi1)) #s(literal 1/120 binary64) (.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (*.f64 delta delta) (cos.f64 phi1)) delta))
#s(approx (* (cos phi1) (sin delta)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) (cos.f64 phi1)) #s(literal -1/5040 binary64) (.f64 #s(literal 1/120 binary64) (cos.f64 phi1))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (*.f64 delta delta) (cos.f64 phi1)) delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (-.f64 (neg.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 #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (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)))))) (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)))))) (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)))))) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) delta)) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) (.f64 (.f64 (cos.f64 theta) phi1) delta))
#s(approx (* (* phi1 (cos theta)) (sin delta)) (.f64 (fma.f64 (.f64 (.f64 (.f64 delta delta) phi1) (cos.f64 theta)) #s(literal -1/6 binary64) (*.f64 (cos.f64 theta) phi1)) delta))
#s(approx (* (* phi1 (cos theta)) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (cos.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (.f64 (cos.f64 theta) phi1))) (.f64 delta delta) (.f64 (cos.f64 theta) phi1)) delta))
#s(approx (* (* phi1 (cos theta)) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (cos.f64 theta) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) phi1) (cos.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (.f64 (cos.f64 theta) phi1))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (cos.f64 theta) phi1)) delta))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (*.f64 phi1 phi1))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (fma.f64 (.f64 phi1 delta) (fma.f64 (.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1)) (cos.f64 theta) (cos.f64 theta)) (.f64 phi1 phi1)))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1)) (cos.f64 theta) (cos.f64 theta)) phi1 (.f64 (.f64 (.f64 phi1 phi1) delta) #s(literal -1/2 binary64))) delta (.f64 phi1 phi1)))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (fma.f64 (fma.f64 (fma.f64 (.f64 phi1 delta) (fma.f64 (.f64 #s(literal 1/9 binary64) (.f64 phi1 phi1)) (cos.f64 theta) (.f64 #s(literal -1/6 binary64) (cos.f64 theta))) (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64))) delta (.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1)) (cos.f64 theta) (cos.f64 theta)) phi1)) delta (.f64 phi1 phi1)))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1)
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (fma.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1)) (cos.f64 theta) (cos.f64 theta)) delta phi1))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (fma.f64 (+.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1)) (cos.f64 theta) (.f64 (.f64 phi1 delta) #s(literal -1/2 binary64))) (cos.f64 theta)) delta phi1))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (fma.f64 (+.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1)) (cos.f64 theta) (cos.f64 theta)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/9 binary64) (.f64 phi1 phi1)) (cos.f64 theta) (.f64 #s(literal -1/6 binary64) (cos.f64 theta))) delta (*.f64 #s(literal -1/2 binary64) phi1)) delta)) delta phi1))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) #s(literal 1 binary64))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (fma.f64 (.f64 (.f64 (cos.f64 theta) phi1) delta) #s(literal -2/3 binary64) #s(literal 1 binary64)))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) phi1) #s(literal -2/3 binary64) (.f64 #s(literal -1/2 binary64) delta)) delta #s(literal 1 binary64)))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (fma.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/9 binary64) (.f64 (.f64 (cos.f64 theta) phi1) delta)) #s(literal 1/2 binary64)) delta (.f64 (*.f64 (cos.f64 theta) phi1) #s(literal -2/3 binary64))) delta #s(literal 1 binary64)))
#s(approx (* (* (cos theta) (sin delta)) -2/3) (.f64 (.f64 (cos.f64 theta) delta) #s(literal -2/3 binary64)))
#s(approx (* (* (cos theta) (sin delta)) -2/3) (.f64 (fma.f64 (.f64 #s(literal 1/9 binary64) (.f64 delta delta)) (cos.f64 theta) (.f64 #s(literal -2/3 binary64) (cos.f64 theta))) delta))
#s(approx (* (* (cos theta) (sin delta)) -2/3) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/180 binary64) (.f64 delta delta)) (cos.f64 theta) (.f64 #s(literal 1/9 binary64) (cos.f64 theta))) (.f64 delta delta) (.f64 #s(literal -2/3 binary64) (cos.f64 theta))) delta))
#s(approx (* (* (cos theta) (sin delta)) -2/3) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/7560 binary64) (.f64 delta delta)) (cos.f64 theta) (.f64 #s(literal -1/180 binary64) (cos.f64 theta))) (.f64 delta delta) (.f64 #s(literal 1/9 binary64) (cos.f64 theta))) (.f64 delta delta) (.f64 #s(literal -2/3 binary64) (cos.f64 theta))) delta))
#s(approx (* (cos theta) (sin delta)) (*.f64 (cos.f64 theta) delta))
#s(approx (* (cos theta) (sin delta)) (.f64 (fma.f64 (.f64 (*.f64 delta delta) (cos.f64 theta)) #s(literal -1/6 binary64) (cos.f64 theta)) delta))
#s(approx (* (cos theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) (cos.f64 theta)) #s(literal 1/120 binary64) (.f64 #s(literal -1/6 binary64) (cos.f64 theta))) (*.f64 delta delta) (cos.f64 theta)) delta))
#s(approx (* (cos theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) (cos.f64 theta)) #s(literal -1/5040 binary64) (.f64 #s(literal 1/120 binary64) (cos.f64 theta))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) (cos.f64 theta))) (*.f64 delta delta) (cos.f64 theta)) delta))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (-.f64 (neg.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 #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) delta)) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 phi1))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (fma.f64 (.f64 (sin.f64 phi1) delta) #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (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 (cos.f64 theta) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) delta (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 phi1))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (fma.f64 (.f64 (sin.f64 phi1) delta) #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (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 (cos.f64 theta) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) delta (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) (.f64 (cos.f64 theta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (.f64 delta delta) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (cos.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (sin delta) (sin.f64 delta))
#s(approx (cos delta) (cos.f64 delta))
#s(approx (* (* (cos theta) (sin delta)) -2/3) (.f64 (.f64 #s(literal -2/3 binary64) (cos.f64 theta)) (sin.f64 delta)))
#s(approx (* (cos theta) (sin delta)) (*.f64 (cos.f64 theta) (sin.f64 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)) (.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal 1/120 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.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)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/5040 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (sin.f64 delta))) (.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)) (*.f64 (sin.f64 delta) theta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) (sin.f64 delta) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal 1/120 binary64)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (*.f64 theta theta) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/5040 binary64)) (sin.f64 delta) (.f64 #s(literal 1/120 binary64) (sin.f64 delta))) (.f64 theta theta) (.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (*.f64 theta theta) (sin.f64 delta)) theta))
#s(approx (sin theta) theta)
#s(approx (sin theta) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) theta))
#s(approx (sin theta) (.f64 (fma.f64 (-.f64 (.f64 (.f64 theta theta) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 theta theta) #s(literal 1 binary64)) theta))
#s(approx (sin theta) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 theta theta)) #s(literal 1/6 binary64)) (*.f64 theta theta) #s(literal 1 binary64)) theta))
#s(approx theta theta)
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (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)) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (cos.f64 delta)) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (cos.f64 delta)) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta))) (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin 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 theta theta) #s(literal 1/24 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta))) (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (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 theta theta) #s(literal 1/24 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (cos theta) #s(literal 1 binary64))
#s(approx (cos theta) (fma.f64 (*.f64 theta theta) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos theta) (fma.f64 (-.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 theta theta) #s(literal 1 binary64)))
#s(approx (cos theta) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 theta theta)) #s(literal 1/2 binary64)) (.f64 theta theta) #s(literal 1 binary64)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (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))))))) (-.f64 (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)) (.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))))))) (-.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (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))))))) (-.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (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)))))) (.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)))))) (fma.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1) (.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 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 theta theta) #s(literal 1/24 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta))))
#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 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta))) (.f64 theta theta))))
#s(approx (* (* phi1 (cos theta)) (sin delta)) (*.f64 (sin.f64 delta) phi1))
#s(approx (* (* phi1 (cos theta)) (sin delta)) (fma.f64 (.f64 (.f64 (.f64 theta theta) phi1) (sin.f64 delta)) #s(literal -1/2 binary64) (.f64 (sin.f64 delta) phi1)))
#s(approx (* (* phi1 (cos theta)) (sin delta)) (fma.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) phi1) (.f64 (.f64 theta theta) (sin.f64 delta)) (.f64 (.f64 (sin.f64 delta) phi1) #s(literal -1/2 binary64))) (.f64 theta theta) (*.f64 (sin.f64 delta) phi1)))
#s(approx (* (* phi1 (cos theta)) (sin delta)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) phi1) (.f64 (.f64 theta theta) (sin.f64 delta)) (.f64 (.f64 (sin.f64 delta) phi1) #s(literal 1/24 binary64))) (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) phi1) #s(literal -1/2 binary64))) (.f64 theta theta) (.f64 (sin.f64 delta) phi1)))
#s(approx (* phi1 (cos theta)) phi1)
#s(approx (* phi1 (cos theta)) (fma.f64 (.f64 (.f64 theta theta) phi1) #s(literal -1/2 binary64) phi1))
#s(approx (* phi1 (cos theta)) (fma.f64 (fma.f64 (.f64 (.f64 theta theta) phi1) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) phi1)) (.f64 theta theta) phi1))
#s(approx (* phi1 (cos theta)) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) phi1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) phi1)) (.f64 theta theta) (.f64 #s(literal -1/2 binary64) phi1)) (.f64 theta theta) phi1))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)) phi1 (sin.f64 delta)) phi1))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (.f64 phi1 (fma.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (.f64 theta theta) (fma.f64 (fma.f64 (.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)) phi1 (sin.f64 delta)))))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (fma.f64 (.f64 phi1 (fma.f64 (fma.f64 (.f64 #s(literal -1/36 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 #s(literal 1/24 binary64) (sin.f64 delta))) (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))))) (.f64 theta theta) (.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)) phi1 (sin.f64 delta)) phi1)))
#s(approx (* (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) (fma.f64 (fma.f64 (.f64 phi1 (fma.f64 (fma.f64 (.f64 #s(literal 1/1080 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 #s(literal -1/720 binary64) (sin.f64 delta))) (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/36 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 #s(literal 1/24 binary64) (sin.f64 delta))))) (.f64 theta theta) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) phi1)) (.f64 theta theta) (.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)) phi1 (sin.f64 delta)) phi1)))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (fma.f64 (fma.f64 (*.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)) phi1 (sin.f64 delta)))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (+.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (.f64 theta theta) (.f64 (fma.f64 (.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)) phi1)) (sin.f64 delta)))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (fma.f64 (.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal -1/36 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 #s(literal 1/24 binary64) (sin.f64 delta))) (.f64 theta theta)))) (.f64 theta theta) (.f64 (fma.f64 (.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)) phi1)) (sin.f64 delta)))
#s(approx (+ (* (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (fma.f64 (.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal -1/36 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (fma.f64 (fma.f64 (.f64 #s(literal 1/1080 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 #s(literal -1/720 binary64) (sin.f64 delta))) (.f64 theta theta) (.f64 #s(literal 1/24 binary64) (sin.f64 delta)))) (.f64 theta theta)))) (.f64 theta theta) (.f64 (fma.f64 (.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)) phi1)) (sin.f64 delta)))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (fma.f64 (*.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (+.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) phi1) (sin.f64 delta) (.f64 (.f64 #s(literal 1/3 binary64) phi1) (.f64 (*.f64 theta theta) (sin.f64 delta)))) (cos.f64 delta)))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (+.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) phi1) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal -1/36 binary64) phi1) (.f64 (.f64 theta theta) (sin.f64 delta)) (.f64 #s(literal 1/3 binary64) (.f64 (sin.f64 delta) phi1))) (.f64 theta theta))) (cos.f64 delta)))
#s(approx (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) (+.f64 (fma.f64 (.f64 #s(literal -2/3 binary64) phi1) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) phi1) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/1080 binary64) phi1) (.f64 (.f64 theta theta) (sin.f64 delta)) (.f64 #s(literal -1/36 binary64) (.f64 (sin.f64 delta) phi1))) (.f64 theta theta))) (*.f64 theta theta))) (cos.f64 delta)))
#s(approx (* (* (cos theta) (sin delta)) -2/3) (*.f64 #s(literal -2/3 binary64) (sin.f64 delta)))
#s(approx (* (* (cos theta) (sin delta)) -2/3) (fma.f64 (.f64 #s(literal 1/3 binary64) (.f64 theta theta)) (sin.f64 delta) (*.f64 #s(literal -2/3 binary64) (sin.f64 delta))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) (fma.f64 (fma.f64 (.f64 #s(literal -1/36 binary64) (.f64 theta theta)) (sin.f64 delta) (.f64 #s(literal 1/3 binary64) (sin.f64 delta))) (.f64 theta theta) (*.f64 #s(literal -2/3 binary64) (sin.f64 delta))))
#s(approx (* (* (cos theta) (sin delta)) -2/3) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/1080 binary64) (.f64 theta theta)) (sin.f64 delta) (.f64 #s(literal -1/36 binary64) (sin.f64 delta))) (.f64 theta theta) (.f64 #s(literal 1/3 binary64) (sin.f64 delta))) (.f64 theta theta) (*.f64 #s(literal -2/3 binary64) (sin.f64 delta))))
#s(approx (* (cos theta) (sin delta)) (sin.f64 delta))
#s(approx (* (cos theta) (sin delta)) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (sin.f64 delta) (sin.f64 delta)))
#s(approx (* (cos theta) (sin delta)) (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (.f64 theta theta) (sin.f64 delta)))
#s(approx (* (cos theta) (sin delta)) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (sin.f64 delta) (.f64 #s(literal 1/24 binary64) (sin.f64 delta))) (.f64 theta theta) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (.f64 theta theta) (sin.f64 delta)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (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)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (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) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (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 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 theta theta) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 theta theta) #s(literal 1/24 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta))) (.f64 theta theta))))
#s(approx (sin (asin (+ (* (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 (asin (+ (* (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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (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 (asin (+ (* (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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (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 theta theta) #s(literal 1/24 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (sin theta) (sin.f64 theta))
#s(approx (cos theta) (cos.f64 theta))

eval175.0ms (1.6%)

Memory: 36.1MiB live, 346.2MiB allocated; 46ms collecting garbage
Compiler: Compiled 47 525 to 4 521 computations (90.5% saved)

prune100.0ms (0.9%)

Memory

0.6MiB live, 144.0MiB allocated; 23ms collecting garbage

Pruning

31 alts after pruning (30 fresh and 1 done)

	Pruned	Kept	Total
New	860	23	883
Fresh	10	7	17
Picked	4	1	5
Done	0	0	0
Total	874	31	905

Accuracy

99.8%

Counts

905 → 31

Alt Table

Click to see full alt table

Status	Accuracy	Program
	54.8%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))))
	99.5%	(+.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 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (fma.f64 (sin.f64 delta) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 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.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	69.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 phi1))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	86.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	88.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	91.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
▶	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	93.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (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))))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (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)))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (.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)))))))
	93.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))))
	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 #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)) #s(literal -2/3 binary64)) phi1 (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1)))))
	79.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 #s(approx (+ ( (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (fma.f64 (fma.f64 (*.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)) phi1 (sin.f64 delta))) phi1)))))
	80.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 #s(approx (+ ( (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) phi1) phi1)))))
	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	87.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	78.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	74.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 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 (.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)))))
	75.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (cos.f64 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))))))
	71.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) 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 (cos.f64 theta)) (sin.f64 delta))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
	71.3%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) (sin.f64 theta) (sin.f64 theta)) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	82.5%	(+.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 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	32.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
▶	99.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	32.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))))))))) (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))))))
✓	68.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 3 253 to 1 996 computations (38.6% saved)

series81.0ms (0.7%)

Memory

14.3MiB live, 201.9MiB allocated; 18ms collecting garbage

Counts

48 → 309

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite773.0ms (6.9%)

Memory

-105.0MiB live, 367.0MiB allocated; 1.1s collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1062	11939
0	1148	11327
1	6346	11098
0	8791	10759

Stop Event

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

Counts

357 → 495

Calls

Call 1

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

Outputs
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
lambda1
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(.f64 (.f64 (sin.f64 theta) (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 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
phi1
(/.f64 (-.f64 (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))) (.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (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 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (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 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (neg.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (sin.f64 phi1)))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))))))
(-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
(fma.f64 (sin.f64 delta) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 delta)))
(cos.f64 (neg.f64 delta))
(cos.f64 delta)
(+.f64 (.f64 (sin.f64 delta) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 (neg.f64 delta))) (sin.f64 (+.f64 phi1 (neg.f64 delta)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 phi1 delta))) #s(literal 2 binary64))
(sin.f64 phi1)
(.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))
(.f64 (cos.f64 theta) (.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))
(.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))
(fma.f64 (sin.f64 theta) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 theta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 theta) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 theta)))
(cos.f64 (neg.f64 theta))
(cos.f64 theta)
(+.f64 (.f64 (sin.f64 theta) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 theta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 (sin.f64 delta) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(/.f64 (+.f64 (sin.f64 (-.f64 delta (neg.f64 phi1))) (sin.f64 (+.f64 delta (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 delta (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) delta)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 delta) #s(approx ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
(-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(pow.f64 (sin.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) phi1))))
(exp.f64 (*.f64 (log.f64 (sin.f64 phi1)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 2 binary64))))
#s(literal 2 binary64)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1))))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)) (.f64 #s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 #s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)) (.f64 #s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1))))))
(-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1)))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))
(.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))) (sin.f64 phi1))
(.f64 (sin.f64 phi1) #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))
(/.f64 (-.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)))) (-.f64 (sin.f64 phi1) (.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (-.f64 (.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta)) (sin.f64 phi1)))
(/.f64 (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta))) (.f64 (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)) (-.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta)) (sin.f64 phi1)))))
(fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1))
(fma.f64 (*.f64 (cos.f64 theta) (cos.f64 phi1)) delta (sin.f64 phi1))
(fma.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) delta) (sin.f64 phi1))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) delta) (sin.f64 phi1))
(fma.f64 delta (*.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 phi1))
(-.f64 (sin.f64 phi1) (.f64 (neg.f64 delta) (.f64 (cos.f64 theta) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)) (sin.f64 phi1))
(+.f64 (sin.f64 phi1) (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)))
(*.f64 (cos.f64 phi1) delta)
(*.f64 delta (cos.f64 phi1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
(.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1)
(.f64 lambda1 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) lambda1 (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) lambda1))
(fma.f64 lambda1 #s(literal 1 binary64) (.f64 lambda1 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)))
(+.f64 (.f64 #s(literal 1 binary64) lambda1) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) lambda1))
(+.f64 (.f64 lambda1 #s(literal 1 binary64)) (.f64 lambda1 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)))
(/.f64 (-.f64 (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)) #s(literal 1 binary64)) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)) (.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)))))
(/.f64 (+.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)))))
(+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))
(/.f64 (neg.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) (neg.f64 lambda1))
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(.f64 (.f64 (sin.f64 theta) (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 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))) (.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (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 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (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 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (neg.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (sin.f64 phi1)))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (sin.f64 phi1)))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) #s(literal 2 binary64))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (-.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.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 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.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 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.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 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))
(fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))
(sin.f64 (asin.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(-.f64 (.f64 (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (cos.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.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) (sin.f64 delta)) (cos.f64 phi1) (.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 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta)))
(-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(+.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
#s(literal 1 binary64)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (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) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1))
#s(approx lambda1 lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) 1) lambda1) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) 1) lambda1) (+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) 1) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) 1) (/.f64 (+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) lambda1))
#s(approx (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) 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))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1) #s(literal 1 binary64)) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 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))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) 1) lambda1) lambda1)
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) 1) lambda1) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) 1) #s(literal 1 binary64))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) 1) (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(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))))))))) (neg.f64 (.f64 (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) lambda1)) #s(literal 1 binary64)) lambda1)))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (neg.f64 (.f64 (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)) #s(literal 1 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))))))))) (neg.f64 (.f64 (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)) #s(literal 1 binary64)) lambda1)))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) 1) lambda1) (neg.f64 (.f64 (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)) #s(literal 1 binary64)) lambda1)))
#s(approx (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)) (.f64 (sin.f64 theta) (sin.f64 delta))))
#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 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (.f64 phi1 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))))
#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 (fma.f64 (.f64 #s(literal 1/24 binary64) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx phi1 phi1)
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (cos.f64 delta))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (-.f64 (neg.f64 (.f64 (cos.f64 delta) phi1)) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (fma.f64 (-.f64 (neg.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) phi1)) (cos.f64 delta)) phi1 (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos.f64 delta))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (fma.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (cos.f64 delta)))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (fma.f64 (-.f64 (.f64 (.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1)) (cos.f64 delta)) (cos.f64 delta)) (.f64 phi1 phi1) (cos.f64 delta)))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal -2/45 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (.f64 #s(literal 1/3 binary64) (cos.f64 delta))) (.f64 phi1 phi1)) (cos.f64 delta)) (.f64 phi1 phi1) (cos.f64 delta)))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (fma.f64 (.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (cos.f64 delta)) (.f64 phi1 phi1)))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 2/45 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (.f64 #s(literal -1/3 binary64) (cos.f64 delta))) (.f64 phi1 phi1) (cos.f64 delta)) (.f64 phi1 phi1)))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/315 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (.f64 #s(literal 2/45 binary64) (cos.f64 delta))) (.f64 phi1 phi1) (.f64 #s(literal -1/3 binary64) (cos.f64 delta))) (.f64 phi1 phi1) (cos.f64 delta)) (.f64 phi1 phi1)))
#s(approx (* (sin phi1) (cos delta)) (*.f64 (cos.f64 delta) phi1))
#s(approx (* (sin phi1) (cos delta)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1)) (cos.f64 delta) (cos.f64 delta)) phi1))
#s(approx (* (sin phi1) (cos delta)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (.f64 #s(literal -1/6 binary64) (cos.f64 delta))) (*.f64 phi1 phi1) (cos.f64 delta)) phi1))
#s(approx (* (sin phi1) (cos delta)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (.f64 #s(literal 1/120 binary64) (cos.f64 delta))) (.f64 phi1 phi1) (.f64 #s(literal -1/6 binary64) (cos.f64 delta))) (*.f64 phi1 phi1) (cos.f64 delta)) phi1))
#s(approx (sin phi1) phi1)
#s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 1/8 binary64))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 1/8 binary64) (.f64 (fma.f64 (.f64 #s(literal -1/144 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 #s(literal -1/240 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -1/630 binary64)))) (.f64 phi1 phi1)))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))
#s(approx (* (cos phi1) (sin delta)) (fma.f64 (.f64 (.f64 phi1 phi1) (sin.f64 delta)) #s(literal -1/2 binary64) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin delta)) (fma.f64 (fma.f64 (.f64 (.f64 phi1 phi1) (sin.f64 delta)) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (.f64 phi1 phi1) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin delta)) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 phi1 phi1) (sin.f64 delta)) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) (sin.f64 delta))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (.f64 phi1 phi1) (sin.f64 delta)))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.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) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (-.f64 (neg.f64 (.f64 (cos.f64 delta) phi1)) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (fma.f64 (-.f64 (neg.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) phi1)) (cos.f64 delta)) phi1 (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 #s(literal -1/3 binary64) phi1) (cos.f64 delta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))
#s(approx (pow (sin phi1) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 phi1 phi1)))
#s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 phi1 phi1)))
#s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/315 binary64) (.f64 phi1 phi1) #s(literal 2/45 binary64)) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 phi1 phi1)))
#s(approx (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (cos.f64 delta))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (-.f64 (neg.f64 (.f64 (cos.f64 delta) phi1)) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (fma.f64 (-.f64 (neg.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) phi1)) (cos.f64 delta)) phi1 (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (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) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 #s(literal -1/3 binary64) phi1) (cos.f64 delta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (*.f64 (cos.f64 theta) delta))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (fma.f64 (cos.f64 theta) delta phi1))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 theta) phi1) delta) #s(literal -1/2 binary64) #s(literal 1 binary64)) phi1 (*.f64 (cos.f64 theta) delta)))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 theta) delta) #s(literal -1/2 binary64) (.f64 #s(literal -1/6 binary64) phi1)) phi1 #s(literal 1 binary64)) phi1 (*.f64 (cos.f64 theta) delta)))
#s(approx (* (cos phi1) delta) delta)
#s(approx (* (cos phi1) delta) (fma.f64 (.f64 (.f64 phi1 phi1) delta) #s(literal -1/2 binary64) delta))
#s(approx (* (cos phi1) delta) (fma.f64 (fma.f64 (.f64 (.f64 phi1 phi1) delta) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) delta)) (.f64 phi1 phi1) delta))
#s(approx (* (cos phi1) delta) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 phi1 phi1) delta) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) delta)) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) delta)) (.f64 phi1 phi1) delta))
#s(approx (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)) (.f64 (sin.f64 theta) (sin.f64 delta))))
#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 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (.f64 phi1 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))))
#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 (fma.f64 (.f64 #s(literal 1/24 binary64) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 (sin.f64 theta) (sin.f64 delta)))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (cos.f64 delta))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (-.f64 (neg.f64 (.f64 (cos.f64 delta) phi1)) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (fma.f64 (-.f64 (neg.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) phi1)) (cos.f64 delta)) phi1 (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta))) phi1 (cos.f64 delta)))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (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) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 #s(literal -1/3 binary64) phi1) (cos.f64 delta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) phi1))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta)) phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (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) (cos delta)) (sin phi1))) (-.f64 (cos.f64 delta) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
#s(approx (* (sin phi1) (cos delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (cos.f64 phi1)))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (pow (sin phi1) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))
#s(approx (* (cos phi1) delta) (*.f64 (cos.f64 phi1) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1)))) (.f64 delta delta) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1)))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) delta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) (sin.f64 theta) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (sin.f64 theta) (.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (*.f64 delta delta) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (sin.f64 theta) (.f64 #s(literal 1/120 binary64) (sin.f64 theta))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (*.f64 delta delta) (sin.f64 theta)) delta))
#s(approx (sin delta) delta)
#s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta))
#s(approx (sin delta) (.f64 (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 delta delta) #s(literal 1 binary64)) delta))
#s(approx (sin delta) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 delta delta)) #s(literal 1/6 binary64)) (*.f64 delta delta) #s(literal 1 binary64)) delta))
#s(approx delta delta)
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (-.f64 (neg.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 #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) (.f64 delta delta)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (-.f64 (fma.f64 (-.f64 (.f64 (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 delta delta)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #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) (cos delta)) (sin phi1))) (-.f64 (fma.f64 (-.f64 (.f64 (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) (.f64 delta delta)) (fma.f64 #s(literal -1/720 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/720 binary64)) #s(literal 1/24 binary64)) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 delta delta)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #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) #s(literal 1 binary64))
#s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos delta) (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 delta delta) #s(literal 1 binary64)))
#s(approx (cos delta) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 delta delta)) #s(literal 1/2 binary64)) (.f64 delta delta) #s(literal 1 binary64)))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (fma.f64 (pow.f64 (*.f64 (sin.f64 phi1) delta) #s(literal 2 binary64)) #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (fma.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 phi1) delta) #s(literal 2 binary64)) #s(literal 1/24 binary64) (.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 phi1) (cos delta)) (sin phi1)) (fma.f64 (fma.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 phi1) delta) #s(literal 2 binary64)) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 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 phi1) (cos delta)) (sin.f64 phi1))
#s(approx (* (sin phi1) (cos delta)) (fma.f64 (.f64 (.f64 delta delta) (sin.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)))
#s(approx (* (sin phi1) (cos delta)) (fma.f64 (fma.f64 (.f64 (.f64 delta delta) (sin.f64 phi1)) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (.f64 delta delta) (sin.f64 phi1)))
#s(approx (* (sin phi1) (cos delta)) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) (sin.f64 phi1)) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1))) (.f64 delta delta) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (.f64 delta delta) (sin.f64 phi1)))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1) (.f64 (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)))) delta))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 delta delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 delta delta))) (.f64 delta delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) (.f64 (cos.f64 theta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (.f64 delta delta) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (.f64 (cos.f64 theta) (cos.f64 phi1)))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (cos.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (cos phi1) (sin delta)) (*.f64 (cos.f64 phi1) delta))
#s(approx (* (cos phi1) (sin delta)) (.f64 (fma.f64 (.f64 (*.f64 delta delta) (cos.f64 phi1)) #s(literal -1/6 binary64) (cos.f64 phi1)) delta))
#s(approx (* (cos phi1) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) (cos.f64 phi1)) #s(literal 1/120 binary64) (.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (*.f64 delta delta) (cos.f64 phi1)) delta))
#s(approx (* (cos phi1) (sin delta)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) (cos.f64 phi1)) #s(literal -1/5040 binary64) (.f64 #s(literal 1/120 binary64) (cos.f64 phi1))) (.f64 delta delta) (.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (*.f64 delta delta) (cos.f64 phi1)) delta))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (-.f64 (neg.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 #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) delta) #s(literal -1/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 (* (/ 1 (pow (sin phi1) -1)) (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 (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 (.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) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (-.f64 (neg.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 #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (.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) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) delta) #s(literal -1/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) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (fma.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 (.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) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin.f64 phi1))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 (sin.f64 phi1) delta) #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 theta) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) delta (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (sin.f64 phi1))
#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)) (.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1)))) (.f64 delta delta) (.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (.f64 (sin.f64 theta) (cos.f64 phi1)))) (.f64 delta delta))) (.f64 delta delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) delta))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) delta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) (sin.f64 theta) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) (sin.f64 theta) (.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (*.f64 delta delta) (sin.f64 theta)) delta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/5040 binary64)) (sin.f64 theta) (.f64 #s(literal 1/120 binary64) (sin.f64 theta))) (.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) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (-.f64 (neg.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 #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (.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) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) delta) #s(literal -1/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) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (fma.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 (.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) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin.f64 phi1))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (.f64 (sin.f64 phi1) delta) #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 theta) (cos.f64 phi1)) (.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)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
#s(approx (sin delta) (sin.f64 delta))
#s(approx (cos delta) (cos.f64 delta))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (cos.f64 theta)))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (*.f64 (fma.f64 (cos.f64 theta) (cos.f64 phi1) (/.f64 (sin.f64 phi1) delta)) delta))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (neg.f64 (.f64 (.f64 #s(literal -1 binary64) (fma.f64 (cos.f64 theta) (cos.f64 phi1) (/.f64 (sin.f64 phi1) delta))) 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)) (.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal 1/120 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta))) (.f64 theta theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/5040 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (sin.f64 delta))) (.f64 theta theta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta))) (.f64 theta theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) theta))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) (sin.f64 delta) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal 1/120 binary64)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (*.f64 theta theta) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/5040 binary64)) (sin.f64 delta) (.f64 #s(literal 1/120 binary64) (sin.f64 delta))) (.f64 theta theta) (.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (*.f64 theta theta) (sin.f64 delta)) theta))
#s(approx (sin theta) theta)
#s(approx (sin theta) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) theta))
#s(approx (sin theta) (.f64 (fma.f64 (-.f64 (.f64 (.f64 theta theta) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 theta theta) #s(literal 1 binary64)) theta))
#s(approx (sin theta) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 theta theta)) #s(literal 1/6 binary64)) (*.f64 theta theta) #s(literal 1 binary64)) theta))
#s(approx theta theta)
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (cos.f64 delta)) (fma.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (cos.f64 delta)) (fma.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (cos.f64 delta)) (fma.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta))) (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 phi1))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (.f64 theta theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (.f64 theta theta))) (.f64 theta theta) (.f64 (sin.f64 delta) (cos.f64 phi1))))
#s(approx (cos theta) #s(literal 1 binary64))
#s(approx (cos theta) (fma.f64 (*.f64 theta theta) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos theta) (fma.f64 (-.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 theta theta) #s(literal 1 binary64)))
#s(approx (cos theta) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 theta theta)) #s(literal 1/2 binary64)) (.f64 theta theta) #s(literal 1 binary64)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (cos.f64 delta)) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (cos.f64 delta)) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (cos.f64 delta)) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1)))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1) (.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (*.f64 theta theta))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta))) (*.f64 theta theta))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (cos.f64 delta)) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (cos.f64 delta)) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (cos.f64 delta)) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1)))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1) (.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (*.f64 theta theta))))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta))) (*.f64 theta theta))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 (+.f64 phi1 delta))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (+.f64 (sin.f64 (+.f64 phi1 delta)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (*.f64 theta theta))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (+.f64 (sin.f64 (+.f64 phi1 delta)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (.f64 theta theta))) (.f64 theta theta))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1)))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (fma.f64 (.f64 (.f64 delta (.f64 theta theta)) (cos.f64 phi1)) #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) delta)) (sin.f64 phi1)))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (fma.f64 (fma.f64 (.f64 (.f64 delta (.f64 theta theta)) (cos.f64 phi1)) #s(literal 1/24 binary64) (.f64 (.f64 (cos.f64 phi1) delta) #s(literal -1/2 binary64))) (.f64 theta theta) (*.f64 (cos.f64 phi1) delta)) (sin.f64 phi1)))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) delta) (.f64 (.f64 theta theta) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi1) delta) #s(literal 1/24 binary64))) (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) delta) #s(literal -1/2 binary64))) (.f64 theta theta) (.f64 (cos.f64 phi1) delta)) (sin.f64 phi1)))
#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)) (.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/6 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal 1/120 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta))) (.f64 theta theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) theta))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/5040 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (sin.f64 delta))) (.f64 theta theta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta))) (.f64 theta theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) theta))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) theta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (*.f64 theta theta) #s(literal -1/6 binary64)) (sin.f64 delta) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal 1/120 binary64)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (*.f64 theta theta) (sin.f64 delta)) theta))
#s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/5040 binary64)) (sin.f64 delta) (.f64 #s(literal 1/120 binary64) (sin.f64 delta))) (.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) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (cos.f64 delta)) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (cos.f64 delta)) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta) (cos.f64 delta)) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1)))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1) (.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (*.f64 theta theta))))
#s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))) (.f64 theta theta))) (*.f64 theta theta))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 (+.f64 phi1 delta))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (+.f64 (sin.f64 (+.f64 phi1 delta)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (*.f64 theta theta))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (+.f64 (sin.f64 (+.f64 phi1 delta)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (sin.f64 delta) (cos.f64 phi1)))) (.f64 theta theta))) (.f64 theta theta))))
#s(approx (sin theta) (sin.f64 theta))
#s(approx (cos theta) (cos.f64 theta))

eval158.0ms (1.4%)

Memory: -8.8MiB live, 323.4MiB allocated; 30ms collecting garbage
Compiler: Compiled 51 084 to 4 239 computations (91.7% saved)

prune88.0ms (0.8%)

Memory

1.6MiB live, 252.0MiB allocated; 18ms collecting garbage

Pruning

56 alts after pruning (55 fresh and 1 done)

	Pruned	Kept	Total
New	846	42	888
Fresh	12	13	25
Picked	5	0	5
Done	0	1	1
Total	863	56	919

Accuracy

99.9%

Counts

919 → 56

Alt Table

Click to see full alt table

Status	Accuracy	Program
	68.4%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
	57.7%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	86.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	85.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	85.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 #s(approx ( (cos theta) (* (cos phi1) (sin delta))) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
	78.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 2/45 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (.f64 #s(literal -1/3 binary64) (cos.f64 delta))) (.f64 phi1 phi1) (cos.f64 delta)) (.f64 phi1 phi1)))) (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
▶	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	81.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 phi1))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	88.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	91.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))))))
	86.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
	86.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (*.f64 (fma.f64 (cos.f64 theta) (cos.f64 phi1) (/.f64 (sin.f64 phi1) delta)) delta)))))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	93.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (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))))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (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)))))
	83.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/315 binary64) (.f64 phi1 phi1) #s(literal 2/45 binary64)) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 phi1 phi1)))))))
▶	80.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 phi1 phi1)))))))
	83.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (pow (sin phi1) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 phi1 phi1)))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (.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)))))))
	93.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))))
	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 #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)) #s(literal -2/3 binary64)) phi1 (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1)))))
	79.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 #s(approx (+ ( (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (fma.f64 (fma.f64 (*.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)) phi1 (sin.f64 delta))) phi1)))))
	80.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	88.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	87.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (sin.f64 delta) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	78.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	79.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	80.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))))
	75.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) #s(literal 1 binary64)))))
	78.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	74.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 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 (.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)))))
	75.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	78.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
	75.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	73.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	87.8%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	73.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) (sin.f64 theta) (sin.f64 theta)) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	74.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	85.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	85.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	82.5%	(+.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 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	32.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	91.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
▶	92.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	32.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 #s(approx (+ (/ (atan2 ( (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) 1) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)) lambda1))
	32.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))))))))) (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))))))
✓	68.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 5 771 to 3 796 computations (34.2% saved)

series68.0ms (0.6%)

Memory

5.3MiB live, 196.3MiB allocated; 6ms collecting garbage

Counts

58 → 314

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite267.0ms (2.4%)

Memory

-25.6MiB live, 306.0MiB allocated; 14ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1069	12067
0	1151	11686
1	6324	11485
0	8792	10984

Stop Event

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

Counts

372 → 498

Calls

Call 1

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

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

eval165.0ms (1.5%)

Memory: 10.8MiB live, 252.4MiB allocated; 43ms collecting garbage
Compiler: Compiled 51 581 to 4 118 computations (92% saved)

prune143.0ms (1.3%)

Memory

17.4MiB live, 400.1MiB allocated; 14ms collecting garbage

Pruning

84 alts after pruning (80 fresh and 4 done)

	Pruned	Kept	Total
New	791	40	831
Fresh	10	40	50
Picked	2	3	5
Done	0	1	1
Total	803	84	887

Accuracy

99.9%

Counts

887 → 84

Alt Table

Click to see full alt table

Status	Accuracy	Program
	68.4%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
	54.9%	(/.f64 (-.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) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (-.f64 (cos.f64 delta) #s(approx ( (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	86.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	85.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	85.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 #s(approx ( (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(approx ( (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	78.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal 2/45 binary64)) (cos.f64 delta) (.f64 #s(literal -1/3 binary64) (cos.f64 delta))) (.f64 phi1 phi1) (cos.f64 delta)) (.f64 phi1 phi1)))) (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
✓	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 #s(approx (* (cos theta) (* (cos phi1) (sin delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	79.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 phi1))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	91.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta)))))))
	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)))))))
	86.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
	86.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (*.f64 (fma.f64 (cos.f64 theta) (cos.f64 phi1) (/.f64 (sin.f64 phi1) delta)) delta)))))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	93.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (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))))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (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)))))
	83.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/315 binary64) (.f64 phi1 phi1) #s(literal 2/45 binary64)) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (.f64 phi1 phi1)))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (.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)))))))
	93.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))))))
	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 #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)) #s(literal -2/3 binary64)) phi1 (cos.f64 delta)) phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1)))))
	79.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 #s(approx (+ ( (+ (* (* (* (cos theta) (sin delta)) -2/3) phi1) (cos delta)) phi1) (* (cos theta) (sin delta))) (fma.f64 (fma.f64 (*.f64 (sin.f64 delta) phi1) #s(literal -2/3 binary64) (cos.f64 delta)) phi1 (sin.f64 delta))) phi1)))))
	80.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (.f64 (cos.f64 phi1) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	88.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	75.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	71.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 phi1 phi1)))))))
	87.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (sin.f64 delta) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	78.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	79.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	80.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))))
	75.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) #s(literal 1 binary64)))))
	78.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	73.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 phi1 phi1)))))))
	74.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 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 (.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)))))
	75.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	85.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	65.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 delta delta) #s(literal 1 binary64)) delta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 phi1 phi1)))))))
	78.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
	68.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) (.f64 (fma.f64 (-.f64 (.f64 (.f64 theta theta) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 theta theta) #s(literal 1 binary64)) theta)) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (pow (sin phi1) 2) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 phi1 phi1)) #s(literal 1/3 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 phi1 phi1)))))))
	75.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	73.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	87.8%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	71.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	74.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	85.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	77.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (-.f64 (neg.f64 (.f64 (cos.f64 delta) phi1)) (.f64 (cos.f64 theta) (sin.f64 delta))) phi1 (cos.f64 delta)))))
	85.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (sin.f64 delta) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	85.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1))))))
	74.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (cos.f64 phi1) (cos.f64 phi1)))))
	76.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	85.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	78.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 delta delta)) #s(literal 1/2 binary64)) (.f64 delta delta) #s(literal 1 binary64))))))
	73.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 delta delta) #s(literal 1 binary64))))))
	78.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))))
	74.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) #s(literal 1 binary64)))))
	72.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 delta delta) #s(literal 1 binary64)) delta)))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	73.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	74.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	82.5%	(+.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 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	70.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) (.f64 (fma.f64 (-.f64 (.f64 (.f64 theta theta) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 theta theta) #s(literal 1 binary64)) theta)) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	70.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) theta)) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	72.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	73.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 (fma.f64 (.f64 (.f64 delta delta) #s(literal -1/6 binary64)) (sin.f64 theta) (sin.f64 theta)) delta))) #s(approx (- (cos delta) ( (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	32.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	87.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	86.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	91.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	91.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
✓	92.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	91.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	91.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 #s(approx (cos theta) #s(literal 1 binary64)) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	86.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	32.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 #s(approx (+ (/ (atan2 ( (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) 1) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)) lambda1))
	32.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
✓	68.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 11 719 to 3 807 computations (67.5% saved)

regimes233.0ms (2.1%)

Memory

-3.0MiB live, 618.6MiB allocated; 23ms collecting garbage

Counts

128 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

35.0ms	phi2
33.0ms	delta
33.0ms	theta
32.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)))))))))
32.0ms	phi1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes274.0ms (2.4%)

Memory

-0.2MiB live, 559.7MiB allocated; 87ms collecting garbage

Counts

116 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

63.0ms	lambda1
49.0ms	phi2
38.0ms	phi1
32.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)))))))))
30.0ms	theta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes189.0ms (1.7%)

Memory

42.4MiB live, 376.8MiB allocated; 22ms collecting garbage

Counts

105 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

30.0ms	delta
26.0ms	lambda1
26.0ms	phi1
26.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)))))))))
26.0ms	theta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes197.0ms (1.8%)

Memory

-22.7MiB live, 357.9MiB allocated; 44ms collecting garbage

Counts

99 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes165.0ms (1.5%)

Memory

3.2MiB live, 292.8MiB allocated; 15ms collecting garbage

Counts

95 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes168.0ms (1.5%)

Memory

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

Outputs

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

Calls

7 calls:

27.0ms	delta
24.0ms	phi2
23.0ms	theta
23.0ms	lambda1
23.0ms	phi1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes194.0ms (1.7%)

Memory

-39.8MiB live, 260.2MiB allocated; 57ms collecting garbage

Counts

82 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

46.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
32.0ms	phi2
30.0ms	lambda1
23.0ms	delta
20.0ms	theta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes271.0ms (2.4%)

Memory

76.5MiB live, 316.3MiB allocated; 73ms collecting garbage

Counts

80 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

103.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))))))))
51.0ms	delta
30.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)))))))))
26.0ms	phi2
19.0ms	lambda1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes180.0ms (1.6%)

Memory

-9.0MiB live, 229.9MiB allocated; 73ms collecting garbage

Counts

76 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

59.0ms	phi1
21.0ms	theta
21.0ms	lambda1
19.0ms	phi2
19.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
91.5%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
91.5%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
91.5%	1	`lambda1`
91.5%	1	`delta`
91.5%	1	`theta`
91.5%	1	`phi1`
91.5%	1	`phi2`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes136.0ms (1.2%)

Memory

-3.6MiB live, 141.2MiB allocated; 77ms collecting garbage

Counts

45 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

63.0ms	delta
14.0ms	phi2
13.0ms	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
11.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
11.0ms	phi1

Results

Accuracy	Segments	Branch
87.8%	1	`phi1`
87.8%	1	`phi2`
87.8%	1	`theta`
87.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))))))))`
87.8%	1	`lambda1`
87.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)))))))))`
91.3%	3	`delta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes76.0ms (0.7%)

Memory

-16.3MiB live, 127.5MiB allocated; 15ms collecting garbage

Counts

38 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes53.0ms (0.5%)

Memory

-0.8MiB live, 91.9MiB allocated; 8ms collecting garbage

Counts

25 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes22.0ms (0.2%)

Memory

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

Outputs

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

Calls

4 calls:

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	phi1
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
85.0%	1	`lambda1`
85.0%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
85.0%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
85.0%	1	`phi1`

Compiler

Compiled 66 to 55 computations (16.7% saved)

regimes30.0ms (0.3%)

Memory

-41.8MiB live, 55.7MiB allocated; 7ms collecting garbage

Counts

11 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes26.0ms (0.2%)

Memory

3.5MiB live, 50.2MiB allocated; 5ms collecting garbage

Counts

10 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes14.0ms (0.1%)

Memory

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

Counts

4 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes6.0ms (0.1%)

Memory

-37.9MiB live, 8.9MiB allocated; 3ms 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 theta) (sin delta)) (cos phi1)) (*.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

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

Outputs

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

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

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

Calls

2 calls:

4.0ms	delta
2.0ms	theta

Results

Accuracy	Segments	Branch
79.8%	3	`delta`
79.5%	3	`theta`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes10.0ms (0.1%)

Memory

24.5MiB live, 24.5MiB 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 theta) (sin delta)) (cos phi1)) (*.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

Outputs

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

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

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

Results

Accuracy	Segments	Branch
72.1%	1	`phi2`
72.1%	1	`lambda1`
72.1%	1	`phi1`
72.1%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
74.4%	2	`theta`
75.4%	3	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
75.8%	3	`delta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes8.0ms (0.1%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

bsearch100.0ms (0.9%)

Memory

-38.6MiB live, 150.2MiB allocated; 20ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
42.0ms	2.2655948362118367e-34	1.0672740962493052e-23
48.0ms	-5.8789522131779836e+22	-3593365045894161.0

Samples

73.0ms

304×

valid

Compiler

Compiled 1 708 to 1 300 computations (23.9% saved)

Precisions

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

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

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

ival-mult!: 10.0ms (15.9% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch57.0ms (0.5%)

Memory

34.1MiB live, 85.8MiB allocated; 12ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
53.0ms	-2.990457461469129e+35	-3.5985745764270316e+20

Samples

46.0ms

160×

valid

Compiler

Compiled 966 to 731 computations (24.3% saved)

Precisions

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

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

ival-sin: 14.0ms (34.7% of total)

ival-mult!: 4.0ms (9.9% of total)

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

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

ival-add!: 1.0ms (2.5% of total)

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

adjust: 0.0ms (0% of total)

bsearch84.0ms (0.7%)

Memory

-3.8MiB live, 135.0MiB allocated; 19ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
40.0ms	2608230600.4036574	3817922455128.799
38.0ms	-4.081485339814169e-16	-1.2557387228475063e-19

Samples

60.0ms

256×

valid

Compiler

Compiled 1 572 to 1 135 computations (27.8% saved)

Precisions

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

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

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

ival-mult!: 7.0ms (14.6% of total)

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

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

ival-sub!: 1.0ms (2.1% of total)

ival-add!: 1.0ms (2.1% of total)

adjust: 0.0ms (0% of total)

bsearch103.0ms (0.9%)

Memory

7.0MiB live, 150.1MiB allocated; 19ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
46.0ms	232.3342115642009	21425726.250458714
51.0ms	-3.3841366939008205e+36	-2.894331012018986e+30

Samples

84.0ms

288×

valid

Compiler

Compiled 1 764 to 1 255 computations (28.9% saved)

Precisions

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

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

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

ival-mult!: 11.0ms (15.6% of total)

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

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

ival-sub!: 1.0ms (1.4% of total)

ival-add!: 1.0ms (1.4% of total)

adjust: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-4.081485339814169e-16	-1.2557387228475063e-19

Compiler

Compiled 700 to 503 computations (28.1% saved)

derivations597.0ms (5.3%)

Memory

-32.1MiB live, 681.0MiB allocated; 62ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 343 to 198 computations (85.3% saved)

preprocess131.0ms (1.2%)

Memory: 21.5MiB live, 300.7MiB allocated; 22ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 5 438 to 1 876 computations (65.5% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.3s (11.8%)

sample3.2s (28.1%)

explain423.0ms (3.8%)

preprocess59.0ms (0.5%)

series52.0ms (0.5%)

rewrite316.0ms (2.8%)

eval60.0ms (0.5%)

prune35.0ms (0.3%)

series90.0ms (0.8%)

rewrite382.0ms (3.4%)

eval175.0ms (1.6%)

prune100.0ms (0.9%)

series81.0ms (0.7%)

rewrite773.0ms (6.9%)

eval158.0ms (1.4%)

prune88.0ms (0.8%)

series68.0ms (0.6%)

rewrite267.0ms (2.4%)

eval165.0ms (1.5%)

prune143.0ms (1.3%)

regimes233.0ms (2.1%)

regimes274.0ms (2.4%)

regimes189.0ms (1.7%)

regimes197.0ms (1.8%)

regimes165.0ms (1.5%)

regimes168.0ms (1.5%)

regimes194.0ms (1.7%)

regimes271.0ms (2.4%)

regimes180.0ms (1.6%)

regimes136.0ms (1.2%)

regimes76.0ms (0.7%)

regimes53.0ms (0.5%)

regimes22.0ms (0.2%)

regimes30.0ms (0.3%)

regimes26.0ms (0.2%)

regimes14.0ms (0.1%)

regimes6.0ms (0.1%)

regimes10.0ms (0.1%)

regimes8.0ms (0.1%)

bsearch100.0ms (0.9%)

bsearch57.0ms (0.5%)

bsearch84.0ms (0.7%)

bsearch103.0ms (0.9%)

bsearch1.0ms (0%)

derivations597.0ms (5.3%)

preprocess131.0ms (1.2%)

end0.0ms (0%)

Profiling