Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze1.2s (13.3%)

Memory

46.2MiB live, 2 232.2MiB allocated; 179ms 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)

sample2.8s (32%)

Memory

159.3MiB live, 3 743.8MiB allocated; 611ms collecting garbage

Samples

2.3s	8 254×	0	valid
3.0ms	2×	1	valid

Precisions

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

ival-sin: 714.0ms (36.4% of total)

ival-cos: 586.0ms (29.8% of total)

ival-mult: 319.0ms (16.2% of total)

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

ival-atan2: 96.0ms (4.9% of total)

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

ival-sub: 44.0ms (2.2% of total)

adjust: 3.0ms (0.2% of total)

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

Bogosity

explain386.0ms (4.3%)

Memory

10.8MiB live, 394.6MiB allocated; 33ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
7	-	1	(2.859110798766144e+277 8.463114381497829e+105 -8.61777446099057e+204 -5.41580703929806e-8 -8.225699612741864e-181)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))`
1	-	1	(7.774314724909505e+99 3.691974352147501e+40 5.4859334038193267e+256 4.761399308102453e-241 1.8660781089530484e-78)	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 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	-	`(cos.f64 theta)`
0	-	0	-	`theta`
0	-	0	-	`(sin.f64 theta)`
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	-	`(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))`
0	-	0	-	`delta`
0	-	0	-	`(sin.f64 phi1)`
0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 delta))`
0	-	0	-	`lambda1`
0	-	0	-	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`
0	-	0	-	`(*.f64 (sin.f64 theta) (sin.f64 delta))`
0	-	0	-	`phi1`
0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 delta))`
0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))`
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	-	`(sin.f64 delta)`
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	-	`(cos.f64 delta)`
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	-	`(cos.f64 phi1)`

Confusion

	Predicted +	Predicted -
+	0	0
-	0	256

Precision

0/0

Recall

0/0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	0	0	0
-	0	4	252

Precision?

0.0

Recall?

0/0

Freqs

test

number	freq
0	256

Total Confusion?

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

Precision?

0.0

Recall?

0/0

Samples

179.0ms

512×

valid

Compiler

Compiled 431 to 73 computations (83.1% saved)

Precisions

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

ival-sin: 84.0ms (55.6% of total)

ival-cos: 29.0ms (19.2% of total)

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

preprocess203.0ms (2.3%)

Memory

10.0MiB live, 103.1MiB allocated; 18ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	179	710
1	422	705
2	873	703
3	1685	703
4	3414	703
5	6243	703
0	22	33
0	40	33
1	73	33
2	137	33
3	300	33
4	665	33
5	1634	33
6	4090	33
7	7302	33
0	8241	32

Stop Event

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

Calls

Call 1

Inputs

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

Outputs

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

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

Symmetry

(abs phi2)

Compiler

Compiled 33 to 23 computations (30.3% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

Status

Accuracy

Program

▶

99.8%

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

Compiler

Compiled 33 to 23 computations (30.3% saved)

series46.0ms (0.5%)

Memory

-6.1MiB live, 39.8MiB allocated; 3ms 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
9.0ms	phi1	@	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))
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))

rewrite247.0ms (2.8%)

Memory

-19.2MiB live, 173.4MiB allocated; 43ms 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))

eval57.0ms (0.6%)

Memory: 7.2MiB live, 52.0MiB allocated; 5ms collecting garbage
Compiler: Compiled 12 738 to 1 974 computations (84.5% saved)

prune23.0ms (0.3%)

Memory

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

Pruning

16 alts after pruning (16 fresh and 0 done)

	Pruned	Kept	Total
New	271	16	287
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	272	16	288

Accuracy

100.0%

Counts

288 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.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.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (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.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.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))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (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)))))) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	79.6%	(+.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 (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) delta (sin.f64 phi1)))))))
	82.1%	(+.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)))))))
	89.1%	(+.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)))))))
▶	93.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))))) (sin.f64 (+.f64 phi1 delta)))))))
	93.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 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))))))
	78.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	89.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
▶	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	99.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.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))
▶	67.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 1 446 to 932 computations (35.5% saved)

series110.0ms (1.2%)

Memory

-16.1MiB live, 81.1MiB allocated; 11ms collecting garbage

Counts

46 → 289

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (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 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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 (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 2 (* (cos delta) (* (cos theta) (sin delta)))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* 2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -2/3 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta))))))) (pow (cos delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (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)) (* (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)) (* (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)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin 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 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))) #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 (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (* (cos theta) (sin delta))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (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 (sin (+ phi1 delta)) #s(hole binary64 (sin delta)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (cos delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -1/2 (* phi1 (sin delta))))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (* phi1 (cos delta))))))))))
#s(approx (+ phi1 delta) #s(hole binary64 delta))
#s(approx (+ phi1 delta) #s(hole binary64 (+ delta phi1)))
#s(approx (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin 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) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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)) (* (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)) (* (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 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (* phi1 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* -1/6 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* (pow phi1 2) (+ (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* 1/120 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (* phi1 (+ (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (* (pow phi1 2) (+ (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* 1/120 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))))))
#s(approx (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (sin phi1) #s(hole binary64 (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) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (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 (sin (+ phi1 delta)) #s(hole binary64 (sin (+ delta phi1))))
#s(approx (+ phi1 delta) #s(hole binary64 phi1))
#s(approx (+ phi1 delta) #s(hole binary64 (* phi1 (+ 1 (/ delta phi1)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- delta (* -1 phi1)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ delta phi1)) 1)))))
#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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 4)) (+ 1 (pow (sin phi1) 2)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (+ (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (sin phi1) 2)))) (+ (* -1/6 (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2))))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (+ 1 (pow (sin phi1) 2)))))))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- 1 (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ 1 (* -2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))))) (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))))) (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))))) (pow (sin phi1) 4))))
#s(approx (pow (cos delta) 2) #s(hole binary64 1))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* -1 (pow delta 2)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/3 (pow delta 2)) 1)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/3 (* -2/45 (pow delta 2)))) 1)))))
#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 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (pow (sin phi1) 4)))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* 2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))) (pow (sin phi1) 4))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (pow (sin phi1) 4))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (+ (* delta (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (sin phi1) 4))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (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)) (* (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)) (* (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)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #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) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (pow (sin phi1) 2))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2)))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (+ (* delta (+ (* delta (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2)))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (+ (* delta (+ (* delta (- (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) 1/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 (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 (sin (+ phi1 delta)) #s(hole binary64 (sin phi1)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (cos phi1)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* -1/2 (* delta (sin phi1))))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (cos 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) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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)) (* (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)) (* (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) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (pow (cos delta) 2) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (+ phi1 delta) #s(hole binary64 (* delta (+ 1 (/ phi1 delta)))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- phi1 (* -1 delta)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* delta (- (* -1 (/ phi1 delta)) 1)))))
#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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #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 theta) (* (cos phi1) (sin 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 (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #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) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (+ (* (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 (* (* (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) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (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
16.0ms	lambda1	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow (cos delta) 2) (cos delta) 2 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (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))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (sin delta) (sin theta)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (/ (PI) 2) (PI) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))
14.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow (cos delta) 2) (cos delta) 2 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (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))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (sin delta) (sin theta)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (/ (PI) 2) (PI) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))
13.0ms	theta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow (cos delta) 2) (cos delta) 2 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (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))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (sin delta) (sin theta)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (/ (PI) 2) (PI) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))
8.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow (cos delta) 2) (cos delta) 2 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (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))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (sin delta) (sin theta)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (/ (PI) 2) (PI) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))
7.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow (cos delta) 2) (cos delta) 2 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (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))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (* (* (sin delta) (sin theta)) (cos phi1)) (* (sin delta) (sin theta)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (/ (PI) 2) (PI) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))

rewrite243.0ms (2.7%)

Memory

14.8MiB live, 333.4MiB allocated; 39ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1179	14352
0	1258	12186
1	7321	12174
0	8013	11790

Stop Event

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

Counts

335 → 501

Calls

Call 1

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

eval258.0ms (2.9%)

Memory: -21.7MiB live, 346.6MiB allocated; 163ms collecting garbage
Compiler: Compiled 65 912 to 5 040 computations (92.4% saved)

prune91.0ms (1%)

Memory

-23.8MiB live, 171.6MiB allocated; 13ms collecting garbage

Pruning

36 alts after pruning (35 fresh and 1 done)

	Pruned	Kept	Total
New	1 017	35	1 052
Fresh	11	0	11
Picked	4	1	5
Done	0	0	0
Total	1 032	36	1 068

Accuracy

100.0%

Counts

1 068 → 36

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	86.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.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)))))))
	87.5%	(+.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) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	92.9%	(+.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 #s(approx (sin (- (/ (PI) 2) (acos (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 #s(approx (sin (- (/ (PI) 2) (acos (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) (.f64 #s(approx (sin (- (/ (PI) 2) (acos (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1))))))))
	94.4%	(+.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) #s(approx (* (cos theta) (* (cos phi1) (sin delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (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))))))
	81.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) delta (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	79.2%	(+.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 (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	94.2%	(+.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 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
▶	38.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))))) (sin.f64 (/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 delta #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 delta delta) (.f64 phi1 delta))))))))))
▶	89.1%	(+.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 #s(approx (+ phi1 delta) delta)))))))
	79.6%	(+.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 (sin (+ phi1 delta)) (fma.f64 (fma.f64 (*.f64 (sin.f64 phi1) delta) #s(literal -1/2 binary64) (cos.f64 phi1)) delta (sin.f64 phi1))))))))
	81.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))))) #s(approx (sin (+ phi1 delta)) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
	81.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	78.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	93.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1) (cos.f64 delta))))))
▶	89.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	75.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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)))))))
	76.6%	(+.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))))) (sin.f64 (+.f64 phi1 delta)))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.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))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) 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)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.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)))))))))))
	86.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.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)))))))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))))
▶	99.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (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 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (.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))))))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (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))))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	26.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))))
	28.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) #s(approx ( (cos theta) (* (cos phi1) (sin delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	27.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	24.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))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin (- (/ (PI) 2) (acos (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (sin.f64 phi1)))))
	27.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	21.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) #s(approx (cos phi1) #s(literal 1 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)))))
✓	67.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 3 977 to 2 526 computations (36.5% saved)

series146.0ms (1.6%)

Memory

17.4MiB live, 155.4MiB allocated; 17ms collecting garbage

Counts

63 → 404

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (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 (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (+ (/ (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 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (* (+ (/ (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 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (* (+ (/ (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 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (cos 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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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 (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 2 (* (cos delta) (* (cos theta) (sin delta)))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* 2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -2/3 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta))))))) (pow (cos delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (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)) (* (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)) (* (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)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin 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 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))) #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 delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (* (cos theta) (sin delta))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* -1/6 (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (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 (sin (+ phi1 delta)) #s(hole binary64 (sin delta)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (cos delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -1/2 (* phi1 (sin delta))))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (* phi1 (cos delta))))))))))
#s(approx (+ phi1 delta) #s(hole binary64 delta))
#s(approx (+ phi1 delta) #s(hole binary64 (+ delta phi1)))
#s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) #s(hole binary64 (sin delta)))
#s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) #s(hole binary64 (+ (sin delta) (* phi1 (cos delta)))))
#s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -1/2 (* phi1 (sin delta))))))))
#s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (* phi1 (cos delta))))))))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 delta))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (+ delta phi1)))
#s(approx (+ (pow phi1 3) (pow delta 3)) #s(hole binary64 (pow delta 3)))
#s(approx (+ (pow phi1 3) (pow delta 3)) #s(hole binary64 (+ (pow delta 3) (pow phi1 3))))
#s(approx (pow phi1 3) #s(hole binary64 (pow phi1 3)))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (pow delta 2)))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (+ (* -1 (* delta phi1)) (pow delta 2))))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (+ (* phi1 (- phi1 delta)) (pow delta 2))))
#s(approx (- (* delta delta) (* phi1 delta)) #s(hole binary64 (pow delta 2)))
#s(approx (- (* delta delta) (* phi1 delta)) #s(hole binary64 (+ (* -1 (* delta phi1)) (pow delta 2))))
#s(approx (* phi1 delta) #s(hole binary64 (* delta phi1)))
#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 (* (cos theta) (cos phi1)) #s(hole binary64 (cos theta)))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos theta) (* -1/2 (* (pow phi1 2) (cos theta))))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (* 1/24 (* (pow phi1 2) (cos theta))))))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos theta))) (* 1/24 (cos theta)))))))))
#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)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (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 (sin (+ phi1 delta)) #s(hole binary64 (sin (+ delta phi1))))
#s(approx (+ phi1 delta) #s(hole binary64 phi1))
#s(approx (+ phi1 delta) #s(hole binary64 (* phi1 (+ 1 (/ delta phi1)))))
#s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) #s(hole binary64 (sin (/ (+ (pow delta 3) (pow phi1 3)) (- (+ (pow delta 2) (pow phi1 2)) (* delta phi1))))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 phi1))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* phi1 (+ 1 (/ delta phi1)))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* phi1 (- (+ 1 (* -1 (/ (+ (* -1 (pow delta 2)) (pow delta 2)) (pow phi1 2)))) (* -1 (/ delta phi1))))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* phi1 (- (+ 1 (* -1 (/ (* delta (+ (* -1 (pow delta 2)) (pow delta 2))) (pow phi1 3)))) (+ (* -1 (/ delta phi1)) (+ (* -1 (/ (pow delta 2) (pow phi1 2))) (/ (pow delta 2) (pow phi1 2))))))))
#s(approx (+ (pow phi1 3) (pow delta 3)) #s(hole binary64 (pow phi1 3)))
#s(approx (+ (pow phi1 3) (pow delta 3)) #s(hole binary64 (* (pow phi1 3) (+ 1 (/ (pow delta 3) (pow phi1 3))))))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (pow phi1 2)))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ delta phi1))))))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (* (pow phi1 2) (- (+ 1 (/ (pow delta 2) (pow phi1 2))) (/ delta phi1)))))
#s(approx (- (* delta delta) (* phi1 delta)) #s(hole binary64 (* -1 (* delta phi1))))
#s(approx (- (* delta delta) (* phi1 delta)) #s(hole binary64 (* phi1 (- (/ (pow delta 2) phi1) 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 (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos theta))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- delta (* -1 phi1)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ delta phi1)) 1)))))
#s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) #s(hole binary64 (sin (/ (- (pow delta 3) (* -1 (pow phi1 3))) (- (+ (pow delta 2) (pow phi1 2)) (* delta phi1))))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ delta phi1)) 1)))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (- (+ (* -1 (/ (pow delta 2) phi1)) (/ (pow delta 2) phi1)) (* -1 delta)) phi1)) 1)))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (* delta (+ (* -1 (pow delta 2)) (pow delta 2))) phi1)) (+ (* -1 (pow delta 2)) (pow delta 2))) phi1)) (* -1 delta)) phi1)) 1)))))
#s(approx (+ (pow phi1 3) (pow delta 3)) #s(hole binary64 (* -1 (* (pow phi1 3) (- (* -1 (/ (pow delta 3) (pow phi1 3))) 1)))))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1 (/ (- (* -1 (/ (pow delta 2) phi1)) (* -1 delta)) phi1))))))
#s(approx (- (* delta delta) (* phi1 delta)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (pow delta 2) phi1)) (* -1 delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (cos phi1))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 4)) (+ 1 (pow (sin phi1) 2)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (+ (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (sin phi1) 2)))) (+ (* -1/6 (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2))))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (+ 1 (pow (sin phi1) 2)))))))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- 1 (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ 1 (* -2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))))) (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))))) (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))))) (pow (sin phi1) 4))))
#s(approx (pow (cos delta) 2) #s(hole binary64 1))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* -1 (pow delta 2)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/3 (pow delta 2)) 1)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/3 (* -2/45 (pow delta 2)))) 1)))))
#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 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (pow (sin phi1) 4)))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* 2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))) (pow (sin phi1) 4))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (pow (sin phi1) 4))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (+ (* delta (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (sin phi1) 4))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (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)) (* (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)) (* (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)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #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 delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (pow (sin phi1) 2))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2)))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (+ (* delta (+ (* delta (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2)))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (+ (* delta (+ (* delta (- (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) 1/2)) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (* 1/2 (PI)) (acos (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (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 delta)) #s(hole binary64 (sin phi1)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (cos phi1)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* -1/2 (* delta (sin phi1))))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (cos phi1))))))))))
#s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) #s(hole binary64 (sin phi1)))
#s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) #s(hole binary64 (+ (sin phi1) (* delta (cos phi1)))))
#s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* -1/2 (* delta (sin phi1))))))))
#s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (cos phi1))))))))))
#s(approx (pow delta 3) #s(hole binary64 (pow delta 3)))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (+ (* -1 (* delta phi1)) (pow phi1 2))))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (+ (* delta (- delta phi1)) (pow phi1 2))))
#s(approx (- (* delta delta) (* phi1 delta)) #s(hole binary64 (* delta (- delta phi1))))
#s(approx (* delta delta) #s(hole binary64 (pow delta 2)))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (- (cos delta) (* (+ (* (* (cos theta) (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 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 delta) #s(hole binary64 (sin delta)))
#s(approx (pow (cos delta) 2) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ phi1 delta) #s(hole binary64 (* delta (+ 1 (/ phi1 delta)))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* delta (+ 1 (/ phi1 delta)))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* delta (- (+ 1 (* -1 (/ (+ (* -1 (pow phi1 2)) (pow phi1 2)) (pow delta 2)))) (* -1 (/ phi1 delta))))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* delta (- (+ 1 (* -1 (/ (* phi1 (+ (* -1 (pow phi1 2)) (pow phi1 2))) (pow delta 3)))) (+ (* -1 (/ phi1 delta)) (+ (* -1 (/ (pow phi1 2) (pow delta 2))) (/ (pow phi1 2) (pow delta 2))))))))
#s(approx (+ (pow phi1 3) (pow delta 3)) #s(hole binary64 (* (pow delta 3) (+ 1 (/ (pow phi1 3) (pow delta 3))))))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (* (pow delta 2) (+ 1 (* -1 (/ phi1 delta))))))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (* (pow delta 2) (- (+ 1 (/ (pow phi1 2) (pow delta 2))) (/ phi1 delta)))))
#s(approx (- (* delta delta) (* phi1 delta)) #s(hole binary64 (* (pow delta 2) (+ 1 (* -1 (/ phi1 delta))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- phi1 (* -1 delta)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* delta (- (* -1 (/ phi1 delta)) 1)))))
#s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) #s(hole binary64 (sin (/ (- (pow phi1 3) (* -1 (pow delta 3))) (- (+ (pow delta 2) (pow phi1 2)) (* delta phi1))))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* -1 (* delta (- (* -1 (/ phi1 delta)) 1)))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* -1 (* delta (- (* -1 (/ (- (+ (* -1 (/ (pow phi1 2) delta)) (/ (pow phi1 2) delta)) (* -1 phi1)) delta)) 1)))))
#s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) #s(hole binary64 (* -1 (* delta (- (* -1 (/ (- (* -1 (/ (- (* -1 (/ (* phi1 (+ (* -1 (pow phi1 2)) (pow phi1 2))) delta)) (+ (* -1 (pow phi1 2)) (pow phi1 2))) delta)) (* -1 phi1)) delta)) 1)))))
#s(approx (+ (pow phi1 3) (pow delta 3)) #s(hole binary64 (* -1 (* (pow delta 3) (- (* -1 (/ (pow phi1 3) (pow delta 3))) 1)))))
#s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) #s(hole binary64 (* (pow delta 2) (+ 1 (* -1 (/ (- (* -1 (/ (pow phi1 2) delta)) (* -1 phi1)) delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (sin theta) #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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #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 theta) (* (cos phi1) (sin 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 (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) #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) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (- (cos delta) (* (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 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 (* (cos theta) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow theta 2) (cos phi1))))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow theta 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow theta 2) (cos phi1))))))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow theta 2) (+ (* -1/2 (cos phi1)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (cos phi1))) (* 1/24 (cos 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
38.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (cos phi1) phi1 (sin delta) delta (sin theta) theta (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow (cos delta) 2) (cos delta) 2 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos 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))))))))) (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))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (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))))) (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) (+ (pow phi1 3) (pow delta 3)) (pow phi1 3) 3 (pow delta 3) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) (- (* delta delta) (* phi1 delta)) (* delta delta) (* phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (* (+ (/ (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 theta) (cos phi1)) (* (sin phi1) (cos delta)) 1)
28.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (cos phi1) phi1 (sin delta) delta (sin theta) theta (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow (cos delta) 2) (cos delta) 2 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos 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))))))))) (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))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (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))))) (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) (+ (pow phi1 3) (pow delta 3)) (pow phi1 3) 3 (pow delta 3) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) (- (* delta delta) (* phi1 delta)) (* delta delta) (* phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (* (+ (/ (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 theta) (cos phi1)) (* (sin phi1) (cos delta)) 1)
11.0ms	theta	@	-inf	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (cos phi1) phi1 (sin delta) delta (sin theta) theta (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow (cos delta) 2) (cos delta) 2 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos 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))))))))) (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))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (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))))) (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) (+ (pow phi1 3) (pow delta 3)) (pow phi1 3) 3 (pow delta 3) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) (- (* delta delta) (* phi1 delta)) (* delta delta) (* phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (* (+ (/ (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 theta) (cos phi1)) (* (sin phi1) (cos delta)) 1)
9.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (cos phi1) phi1 (sin delta) delta (sin theta) theta (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow (cos delta) 2) (cos delta) 2 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos 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))))))))) (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))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (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))))) (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) (+ (pow phi1 3) (pow delta 3)) (pow phi1 3) 3 (pow delta 3) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) (- (* delta delta) (* phi1 delta)) (* delta delta) (* phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (* (+ (/ (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 theta) (cos phi1)) (* (sin phi1) (cos delta)) 1)
9.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (cos phi1) phi1 (sin delta) delta (sin theta) theta (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow (cos delta) 2) (cos delta) 2 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos 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))))))))) (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))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (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))))) (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) (+ (pow phi1 3) (pow delta 3)) (pow phi1 3) 3 (pow delta 3) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) (- (* delta delta) (* phi1 delta)) (* delta delta) (* phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (* (+ (/ (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 theta) (cos phi1)) (* (sin phi1) (cos delta)) 1)

rewrite280.0ms (3.2%)

Memory

12.7MiB live, 398.3MiB allocated; 56ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1508	18108
0	1616	16331
0	8414	15621

Stop Event

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

Counts

467 → 605

Calls

Call 1

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

eval181.0ms (2%)

Memory: -22.9MiB live, 350.6MiB allocated; 46ms collecting garbage
Compiler: Compiled 68 853 to 5 436 computations (92.1% saved)

prune79.0ms (0.9%)

Memory

33.4MiB live, 227.8MiB allocated; 8ms collecting garbage

Pruning

49 alts after pruning (46 fresh and 3 done)

	Pruned	Kept	Total
New	991	22	1 013
Fresh	6	24	30
Picked	3	2	5
Done	0	1	1
Total	1 000	49	1 049

Accuracy

100.0%

Counts

1 049 → 49

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	71.2%	(+.f64 lambda1 (atan2.f64 (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	86.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.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)))))))
	87.5%	(+.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) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	87.4%	(+.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) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	89.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta))))))))))
	94.4%	(+.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) #s(approx (* (cos theta) (* (cos phi1) (sin delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (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))))))
	81.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) delta (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	79.2%	(+.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 (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	94.2%	(+.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 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	24.8%	(+.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 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 delta #s(literal 3 binary64))) #s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) (*.f64 delta delta)))))))))
	59.1%	(+.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 #s(approx (+ (pow phi1 3) (pow delta 3)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 delta delta) (.f64 phi1 delta))))))))))
✓	89.1%	(+.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 #s(approx (+ phi1 delta) delta)))))))
	79.6%	(+.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 (sin (+ phi1 delta)) (fma.f64 (fma.f64 (*.f64 (sin.f64 phi1) delta) #s(literal -1/2 binary64) (cos.f64 phi1)) delta (sin.f64 phi1))))))))
	81.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))))) #s(approx (sin (+ phi1 delta)) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
	78.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	93.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 phi1) (cos.f64 delta))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	89.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	78.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) (fma.f64 #s(literal -1/2 binary64) (*.f64 delta delta) #s(literal 1 binary64))))))
	74.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))
▶	78.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	71.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64))))) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	76.6%	(+.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))))) (sin.f64 (+.f64 phi1 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.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))) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64))) (-.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)))))))
	76.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.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)))))))))))
▶	31.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 delta #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 delta delta) (.f64 phi1 delta))))))))))
	73.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	37.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 delta #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 delta delta) (.f64 phi1 delta))))))))))
	86.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
▶	86.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))))
	93.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (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.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (.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) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	99.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
▶	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (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) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (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 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (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))))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	26.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))))
	28.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) #s(approx ( (cos theta) (* (cos phi1) (sin delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	27.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	24.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))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin (- (/ (PI) 2) (acos (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (sin.f64 phi1)))))
	27.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	21.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) #s(approx (cos phi1) #s(literal 1 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)))))
✓	67.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 5 407 to 3 466 computations (35.9% saved)

series130.0ms (1.5%)

Memory

-41.2MiB live, 109.1MiB allocated; 17ms collecting garbage

Counts

60 → 366

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite272.0ms (3.1%)

Memory

20.8MiB live, 346.5MiB allocated; 35ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1245	12919
0	1339	11815
1	7191	11571
0	9022	11211

Stop Event

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

Counts

426 → 696

Calls

Call 1

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

eval162.0ms (1.8%)

Memory: -7.7MiB live, 281.3MiB allocated; 29ms collecting garbage
Compiler: Compiled 51 642 to 4 692 computations (90.9% saved)

prune135.0ms (1.5%)

Memory

5.4MiB live, 337.3MiB allocated; 45ms collecting garbage

Pruning

58 alts after pruning (53 fresh and 5 done)

	Pruned	Kept	Total
New	774	31	805
Fresh	19	22	41
Picked	3	2	5
Done	0	3	3
Total	796	58	854

Accuracy

100.0%

Counts

854 → 58

Alt Table

Click to see full alt table

Status	Accuracy	Program
	43.2%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 #s(approx ( (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 #s(approx ( (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))))
	93.3%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (cos delta) (sin phi1)) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1)
	92.4%	(+.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) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	94.2%	(+.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) (cos phi1)) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (+.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	71.2%	(+.f64 lambda1 (atan2.f64 (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	87.5%	(+.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) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	87.4%	(+.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) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (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))))))
	79.2%	(+.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 (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
✓	89.1%	(+.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 #s(approx (+ phi1 delta) delta)))))))
	78.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	89.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	74.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))
	71.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	29.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 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))))))))
	68.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
	76.6%	(+.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))))) (sin.f64 (+.f64 phi1 delta)))))))
	74.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.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))) (fma.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1) (cos.f64 delta)))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64))) (-.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)))))))
	76.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	68.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.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)))))))))))
	77.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (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 phi1) (sin.f64 delta))))))))
	19.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 delta #s(literal 3 binary64))) #s(approx (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))) (*.f64 delta delta)))))))))
	48.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (/.f64 #s(approx (+ (pow phi1 3) (pow delta 3)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 delta delta) (.f64 phi1 delta))))))))))
	76.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta)))) phi1)))))))
	69.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) (fma.f64 (fma.f64 (*.f64 (sin.f64 phi1) delta) #s(literal -1/2 binary64) (cos.f64 phi1)) delta (sin.f64 phi1))))))))
	70.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (sin (/ (+ (pow phi1 3) (pow delta 3)) (+ (* phi1 phi1) (- (* delta delta) (* phi1 delta))))) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
	73.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	86.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	75.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (sin.f64 (fma.f64 #s(literal -1 binary64) delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	74.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	86.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	75.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))))
	73.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))
	73.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #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 (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	72.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #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 (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	72.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	74.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	71.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	73.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1)))))
	93.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
✓	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (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) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
	28.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (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) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
	21.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (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) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (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 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	34.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	26.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))))
	24.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))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin (- (/ (PI) 2) (acos (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (sin.f64 phi1)))))
	27.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
✓	67.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 9 088 to 2 743 computations (69.8% saved)

regimes262.0ms (2.9%)

Memory

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

Calls

7 calls:

51.0ms	phi1
47.0ms	lambda1
45.0ms	phi2
33.0ms	theta
30.0ms	delta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes213.0ms (2.4%)

Memory

-40.5MiB live, 342.8MiB allocated; 86ms collecting garbage

Counts

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

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

Calls

7 calls:

54.0ms	lambda1
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
25.0ms	delta
25.0ms	phi1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes154.0ms (1.7%)

Memory

42.3MiB live, 272.0MiB allocated; 32ms collecting garbage

Counts

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

Calls

7 calls:

29.0ms	delta
24.0ms	phi2
23.0ms	theta
19.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)))))))))
19.0ms	lambda1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes125.0ms (1.4%)

Memory

-7.3MiB live, 182.6MiB allocated; 19ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
93.1%	1	`phi2`
93.1%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
93.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)))))))))`
93.1%	1	`lambda1`
93.1%	1	`phi1`
93.1%	1	`delta`
93.1%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes73.0ms (0.8%)

Memory

-24.1MiB live, 120.0MiB allocated; 7ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

7 calls:

11.0ms	theta
11.0ms	phi1
11.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))))))))
10.0ms	delta
10.0ms	lambda1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes8.0ms (0.1%)

Memory

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

Counts

27 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

7.0ms

delta

Results

Accuracy	Segments	Branch
93.1%	3	`delta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes24.0ms (0.3%)

Memory

-10.7MiB live, 36.2MiB allocated; 1ms collecting garbage

Counts

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

Outputs

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

Calls

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

Results

Accuracy	Segments	Branch
89.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))))))))`
89.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)))))))))`
89.5%	1	`lambda1`
89.5%	1	`delta`

Compiler

Compiled 66 to 55 computations (16.7% saved)

regimes50.0ms (0.6%)

Memory

19.6MiB live, 68.6MiB allocated; 23ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes24.0ms (0.3%)

Memory

-7.0MiB live, 41.1MiB allocated; 4ms collecting garbage

Counts

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
80.8%	3	`theta`
75.7%	1	`lambda1`
75.7%	1	`phi1`
75.7%	1	`phi2`
80.6%	3	`delta`
79.2%	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.0%	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)))))))))`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes3.0ms (0%)

Memory

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

Counts

8 → 3

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

3.0ms

theta

Results

Accuracy	Segments	Branch
80.6%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes3.0ms (0%)

Memory

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

Counts

7 → 3

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

2.0ms

theta

Results

Accuracy	Segments	Branch
80.6%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes5.0ms (0.1%)

Memory

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

Counts

6 → 3

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

2.0ms	theta
2.0ms	delta

Results

Accuracy	Segments	Branch
78.4%	2	`delta`
80.4%	3	`theta`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes2.0ms (0%)

Memory

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

Outputs

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

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

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

Calls

1 calls:

2.0ms

theta

Results

Accuracy	Segments	Branch
80.3%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes4.0ms (0%)

Memory

-40.2MiB live, 7.1MiB allocated; 1ms 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 delta) delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))

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

Outputs

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

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

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

Calls

2 calls:

2.0ms	delta
2.0ms	theta

Results

Accuracy	Segments	Branch
79.6%	3	`delta`
79.7%	3	`theta`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes10.0ms (0.1%)

Memory

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

Counts

2 → 1

Calls

Call 1

Inputs

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

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

Outputs

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

Calls

7 calls:

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes8.0ms (0.1%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

bsearch88.0ms (1%)

Memory

-13.8MiB live, 128.1MiB allocated; 8ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
39.0ms	0.002333797190174313	2189700.5557407117
42.0ms	-2617222777232098.0	-8339980842558.88

Samples

69.0ms

272×

valid

Compiler

Compiled 1 294 to 1 000 computations (22.7% saved)

Precisions

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

ival-sin: 23.0ms (39.6% of total)

ival-cos: 15.0ms (25.8% of total)

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.002333797190174313	2189700.5557407117
1.0ms	-2617222777232098.0	-8339980842558.88

Compiler

Compiled 1 362 to 1 051 computations (22.8% saved)

bsearch85.0ms (1%)

Memory

-26.4MiB live, 116.2MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
55.0ms	2.556855007200608e+40	5.234254202200688e+63
23.0ms	-2059560.804567892	-1150624.9073312425

Samples

64.0ms

240×

valid

Compiler

Compiled 1 766 to 1 228 computations (30.5% saved)

Precisions

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

ival-sin: 23.0ms (41.3% of total)

ival-cos: 15.0ms (26.9% of total)

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

bsearch40.0ms (0.5%)

Memory

15.0MiB live, 61.3MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
36.0ms	0.09421144665209087	22.415048816975236
1.0ms	-2059560.804567892	-1150624.9073312425

Samples

31.0ms

112×

valid

Compiler

Compiled 1 255 to 890 computations (29.1% saved)

Precisions

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	2.556855007200608e+40	5.234254202200688e+63
1.0ms	-2059560.804567892	-1150624.9073312425

Compiler

Compiled 1 601 to 1 153 computations (28% saved)

bsearch30.0ms (0.3%)

Memory

-11.4MiB live, 35.4MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
26.0ms	0.09421144665209087	22.415048816975236
1.0ms	-2059560.804567892	-1150624.9073312425

Samples

22.0ms

96×

valid

Compiler

Compiled 1 112 to 802 computations (27.9% saved)

Precisions

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.09421144665209087	22.415048816975236
1.0ms	-2059560.804567892	-1150624.9073312425

Compiler

Compiled 1 092 to 790 computations (27.7% saved)

bsearch34.0ms (0.4%)

Memory

3.4MiB live, 50.1MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
22.0ms	0.09421144665209087	22.415048816975236
10.0ms	-2059560.804567892	-1150624.9073312425

Samples

26.0ms

96×

valid

Compiler

Compiled 1 092 to 779 computations (28.7% saved)

Precisions

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

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

simplify59.0ms (0.7%)

Memory

8.7MiB live, 58.3MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	171	1377
1	241	1377
2	358	1377
3	598	1377
4	1218	1377
5	4423	1377

Stop Event

1×	node limit

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.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 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 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #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))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(if (<=.f64 delta #s(literal -8400000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3170534137668829/576460752303423488 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 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (<=.f64 delta #s(literal -8400000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3170534137668829/576460752303423488 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
(if (<=.f64 theta #s(literal -1200000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) (if (<=.f64 theta #s(literal 26000000000000000548058509987283698974720 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #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 (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (<=.f64 theta #s(literal -1200000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) (if (<=.f64 theta #s(literal 5854679515581645/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #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 (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (<=.f64 theta #s(literal -1200000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) (if (<=.f64 theta #s(literal 26000000000000000548058509987283698974720 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (<=.f64 theta #s(literal -1200000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) (if (<=.f64 theta #s(literal 3602879701896397/36028797018963968 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (<=.f64 theta #s(literal -1200000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64))))) (if (<=.f64 theta #s(literal 3602879701896397/36028797018963968 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (<=.f64 theta #s(literal -1400000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 3 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Outputs
(+.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 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 phi1) (sin.f64 delta)) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #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))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(if (<=.f64 delta #s(literal -8400000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3170534137668829/576460752303423488 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 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (or (<=.f64 delta #s(literal -8400000000000 binary64)) (not (<=.f64 delta #s(literal 3170534137668829/576460752303423488 binary64)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(if (<=.f64 delta #s(literal -8400000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3170534137668829/576460752303423488 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (or (<=.f64 delta #s(literal -8400000000000 binary64)) (not (<=.f64 delta #s(literal 3170534137668829/576460752303423488 binary64)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
(if (<=.f64 theta #s(literal -1200000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) (if (<=.f64 theta #s(literal 26000000000000000548058509987283698974720 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #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 (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (<=.f64 theta #s(literal -1200000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) (if (<=.f64 theta #s(literal 5854679515581645/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #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 (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (<=.f64 theta #s(literal -1200000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) (if (<=.f64 theta #s(literal 26000000000000000548058509987283698974720 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (<=.f64 theta #s(literal -1200000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))))) (if (<=.f64 theta #s(literal 3602879701896397/36028797018963968 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (<=.f64 theta #s(literal -1200000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64))))) (if (<=.f64 theta #s(literal 3602879701896397/36028797018963968 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (or (<=.f64 theta #s(literal -1200000 binary64)) (not (<=.f64 theta #s(literal 3602879701896397/36028797018963968 binary64)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(approx (cos delta) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))))
(if (<=.f64 theta #s(literal -1400000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 3 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))))
(if (or (<=.f64 theta #s(literal -1400000 binary64)) (not (<=.f64 theta #s(literal 3 binary64)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

derivations392.0ms (4.4%)

Memory

24.9MiB live, 403.2MiB allocated; 26ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 377 to 176 computations (87.2% saved)

preprocess104.0ms (1.2%)

Memory: -2.6MiB live, 184.6MiB allocated; 30ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 2 928 to 448 computations (84.7% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.2s (13.3%)

sample2.8s (32%)

explain386.0ms (4.3%)

preprocess203.0ms (2.3%)

eval0.0ms (0%)

prune1.0ms (0%)

series46.0ms (0.5%)

rewrite247.0ms (2.8%)

eval57.0ms (0.6%)

prune23.0ms (0.3%)

series110.0ms (1.2%)

rewrite243.0ms (2.7%)

eval258.0ms (2.9%)

prune91.0ms (1%)

series146.0ms (1.6%)

rewrite280.0ms (3.2%)

eval181.0ms (2%)

prune79.0ms (0.9%)

series130.0ms (1.5%)

rewrite272.0ms (3.1%)

eval162.0ms (1.8%)

prune135.0ms (1.5%)

regimes262.0ms (2.9%)

regimes213.0ms (2.4%)

regimes154.0ms (1.7%)

regimes125.0ms (1.4%)

regimes73.0ms (0.8%)

regimes8.0ms (0.1%)

regimes24.0ms (0.3%)

regimes50.0ms (0.6%)

regimes24.0ms (0.3%)

regimes3.0ms (0%)

regimes3.0ms (0%)

regimes5.0ms (0.1%)

regimes2.0ms (0%)

regimes4.0ms (0%)

regimes10.0ms (0.1%)

regimes8.0ms (0.1%)

bsearch88.0ms (1%)

bsearch3.0ms (0%)

bsearch85.0ms (1%)

bsearch40.0ms (0.5%)

bsearch3.0ms (0%)

bsearch30.0ms (0.3%)

bsearch2.0ms (0%)

bsearch34.0ms (0.4%)

simplify59.0ms (0.7%)

derivations392.0ms (4.4%)

preprocess104.0ms (1.2%)

end0.0ms (0%)

Profiling