Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze2.0s (21.5%)

Memory

-117.9MiB live, 1 595.4MiB allocated; 1.1s 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 (30.5%)

Memory

98.2MiB live, 3 575.3MiB allocated; 601ms collecting garbage

Samples

2.2s	8 254×	0	valid
5.0ms	2×	1	valid

Precisions

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

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

ival-cos: 569.0ms (30.7% of total)

ival-mult!: 225.0ms (12.1% of total)

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

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

ival-add!: 37.0ms (2% of total)

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

adjust: 2.0ms (0.1% of total)

Bogosity

preprocess59.0ms (0.7%)

Memory

-4.9MiB live, 38.9MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

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

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

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

Symmetry

(abs phi2)

Compiler

Compiled 52 to 46 computations (11.5% saved)

series78.0ms (0.9%)

Memory

-11.1MiB live, 101.6MiB allocated; 46ms 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
36.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))
11.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	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))
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))

rewrite244.0ms (2.7%)

Memory

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

eval41.0ms (0.5%)

Memory: 39.2MiB live, 85.3MiB allocated; 3ms collecting garbage
Compiler: Compiled 4 814 to 1 986 computations (58.7% saved)

prune103.0ms (1.1%)

Memory

-27.4MiB live, 33.0MiB allocated; 5ms collecting garbage

Pruning

21 alts after pruning (21 fresh and 0 done)

	Pruned	Kept	Total
New	241	21	262
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	242	21	263

Accuracy

99.9%

Counts

263 → 21

Alt Table

Click to see full alt table

Status	Accuracy	Program
	70.6%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	99.7%	(+.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))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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.7%	(+.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))))))
▶	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 theta) (cos.f64 phi1)) (sin.f64 delta) (*.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) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 delta))))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))
	85.7%	(+.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)))))))
▶	85.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 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)))))))
	87.7%	(+.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.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 phi1 delta)))))))
	92.7%	(+.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 phi1))))))
	92.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	85.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (-.f64 (neg.f64 (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) delta)) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))) delta #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
	80.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi1) delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
	80.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)))))))
	87.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	75.2%	(+.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) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	34.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.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.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))))))))) (.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.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))))))))) lambda1)

Compiler

Compiled 1 506 to 1 296 computations (13.9% saved)

series100.0ms (1.1%)

Memory

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

Counts

49 → 269

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

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

Calls

15 calls:

Time	Variable		Point	Expression
27.0ms	theta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (* (cos theta) (cos phi1)) (cos theta) (* (sin phi1) (cos delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (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))))) (+ (* delta (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1)))) (sin phi1)) (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1))) (* -1/2 delta) -1/2 (+ 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) 2 (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* (cos phi1) (sin delta)))
17.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (* (cos theta) (cos phi1)) (cos theta) (* (sin phi1) (cos delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (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))))) (+ (* delta (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1)))) (sin phi1)) (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1))) (* -1/2 delta) -1/2 (+ 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) 2 (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* (cos phi1) (sin delta)))
11.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (* (cos theta) (cos phi1)) (cos theta) (* (sin phi1) (cos delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (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))))) (+ (* delta (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1)))) (sin phi1)) (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1))) (* -1/2 delta) -1/2 (+ 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) 2 (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* (cos phi1) (sin delta)))
6.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (* (cos theta) (cos phi1)) (cos theta) (* (sin phi1) (cos delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (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))))) (+ (* delta (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1)))) (sin phi1)) (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1))) (* -1/2 delta) -1/2 (+ 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) 2 (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* (cos phi1) (sin delta)))
6.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (* (cos theta) (cos phi1)) (cos theta) (* (sin phi1) (cos delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (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))))) (+ (* delta (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1)))) (sin phi1)) (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1))) (* -1/2 delta) -1/2 (+ 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) 2 (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* (cos phi1) (sin delta)))

rewrite322.0ms (3.5%)

Memory

-52.2MiB live, 229.9MiB allocated; 78ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1010	9733
0	1104	9083
1	6249	9081
0	8760	8799

Stop Event

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

Counts

318 → 532

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

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

eval136.0ms (1.5%)

Memory: 10.4MiB live, 293.5MiB allocated; 28ms collecting garbage
Compiler: Compiled 12 301 to 4 312 computations (64.9% saved)

prune81.0ms (0.9%)

Memory

10.0MiB live, 149.5MiB allocated; 27ms collecting garbage

Pruning

42 alts after pruning (41 fresh and 1 done)

	Pruned	Kept	Total
New	699	33	732
Fresh	8	8	16
Picked	4	1	5
Done	0	0	0
Total	711	42	753

Accuracy

99.9%

Counts

753 → 42

Alt Table

Click to see full alt table

Status	Accuracy	Program
	63.9%	(/.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 (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (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 (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (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 (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	84.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
▶	86.1%	(+.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)))))))
	93.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 #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))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))))))
	99.7%	(+.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))))))
	93.0%	(+.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)))) (.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))))))
	82.7%	(+.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)))))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #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)))))))))
	86.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #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)))))))))
	83.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))))))))
	93.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	81.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #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)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	84.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) (*.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) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)))))))
	92.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 #s(approx ( (cos theta) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	94.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 #s(approx ( (cos theta) (cos phi1)) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	88.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))))))))))
	84.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))))) (fma.f64 delta #s(approx (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) delta) #s(literal -1/2 binary64) (cos.f64 phi1))) (sin.f64 phi1)))))))
	85.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 delta #s(approx (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1))) (cos.f64 theta)) (sin.f64 phi1)))))))
	87.7%	(+.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)))))))
	87.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))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	85.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #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)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	92.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	79.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 delta delta) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	73.8%	(+.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))))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)))))))
	81.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	80.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (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)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	80.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)))))))
▶	87.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
▶	78.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	78.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))))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)))))))
	80.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	73.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 (+.f64 phi1 delta)))))))
▶	86.4%	(+.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) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	85.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.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.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)))))
	34.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	99.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))))))))) (.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.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))))))))) lambda1)

Compiler

Compiled 3 083 to 2 638 computations (14.4% saved)

series58.0ms (0.6%)

Memory

17.7MiB live, 112.1MiB allocated; 5ms collecting garbage

Counts

59 → 325

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

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

rewrite222.0ms (2.4%)

Memory

-24.4MiB live, 263.5MiB allocated; 37ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1086	11390
0	1183	10670
1	6204	10667
0	8044	10330

Stop Event

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

Counts

384 → 599

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

eval116.0ms (1.3%)

Memory: 34.0MiB live, 219.4MiB allocated; 17ms collecting garbage
Compiler: Compiled 12 165 to 4 347 computations (64.3% saved)

prune72.0ms (0.8%)

Memory

1.2MiB live, 142.1MiB allocated; 5ms collecting garbage

Pruning

53 alts after pruning (49 fresh and 4 done)

	Pruned	Kept	Total
New	761	27	788
Fresh	14	22	36
Picked	2	3	5
Done	0	1	1
Total	777	53	830

Accuracy

99.9%

Counts

830 → 53

Alt Table

Click to see full alt table

Status	Accuracy	Program
	63.9%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos 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 (cos.f64 delta) (.f64 #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	85.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	84.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	84.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	93.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 #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))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))))))
	99.7%	(+.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))))))
	93.0%	(+.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)))) (.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))))))
	82.7%	(+.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)))))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #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)))))))))
	93.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos 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 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)))))))
	92.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 (sin.f64 phi1) (cos.f64 delta) #s(approx ( (* (cos theta) (sin delta)) (cos phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	94.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 #s(approx ( (cos theta) (cos phi1)) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	88.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))))))))))
	87.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	84.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))))) (fma.f64 delta #s(approx (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) delta) #s(literal -1/2 binary64) (cos.f64 phi1))) (sin.f64 phi1)))))))
	85.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 delta #s(approx (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1))) (cos.f64 theta)) (sin.f64 phi1)))))))
	87.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))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	85.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (sin (+ phi1 delta)) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
	92.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	73.8%	(+.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))))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)))))))
	81.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	80.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (-.f64 (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	80.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
	79.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))))))) (sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	77.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))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	87.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))))
	76.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) #s(literal 1 binary64)))))
	74.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
▶	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
✓	78.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	78.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #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)))))))))
▶	78.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #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)))))))))
	77.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))))))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #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)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	78.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (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) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	78.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))))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)))))))
	80.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	74.4%	(+.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))))))) (cos.f64 delta))))
	87.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	73.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 (+.f64 phi1 delta)))))))
	72.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
▶	86.1%	(+.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) (fma.f64 #s(approx (* (cos theta) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	85.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)))))))
	75.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	34.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	34.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.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)))))
✓	67.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))))))))) lambda1)

Compiler

Compiled 3 810 to 3 305 computations (13.3% saved)

series74.0ms (0.8%)

Memory

0.8MiB live, 143.6MiB allocated; 8ms collecting garbage

Counts

75 → 329

Calls

Call 1

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

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

rewrite239.0ms (2.6%)

Memory

8.8MiB live, 290.6MiB allocated; 39ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1179	12110
0	1300	10925
1	7051	10923
0	8995	10401

Stop Event

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

Counts

404 → 670

Calls

Call 1

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

eval185.0ms (2%)

Memory: -38.0MiB live, 240.8MiB allocated; 35ms collecting garbage
Compiler: Compiled 13 617 to 5 098 computations (62.6% saved)

prune117.0ms (1.3%)

Memory

25.8MiB live, 218.2MiB allocated; 12ms collecting garbage

Pruning

67 alts after pruning (59 fresh and 8 done)

	Pruned	Kept	Total
New	760	25	785
Fresh	10	34	44
Picked	1	4	5
Done	0	4	4
Total	771	67	838

Accuracy

99.9%

Counts

838 → 67

Alt Table

Click to see full alt table

Status	Accuracy	Program
	58.7%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (sin (+ phi1 (/ (PI) 2)))) (.f64 (sin.f64 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 (* (* (sin theta) (sin delta)) (sin (+ phi1 (/ (PI) 2)))) (.f64 (sin.f64 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 (* (* (sin theta) (sin delta)) (sin (+ phi1 (/ (PI) 2)))) (.f64 (sin.f64 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))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	80.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #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)))))))
	85.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi1))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	84.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	84.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	93.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 #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))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) 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))))))))
	99.7%	(+.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))))))
	93.0%	(+.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)))) (.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))))))
	82.7%	(+.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)))))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #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)))))))))
	93.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos 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 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)))))))
	92.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 (sin.f64 phi1) (cos.f64 delta) #s(approx ( (* (cos theta) (sin delta)) (cos phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	94.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 #s(approx ( (cos theta) (cos phi1)) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	88.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))))))))))
	87.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	84.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))))) (fma.f64 delta #s(approx (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1))) (fma.f64 (*.f64 (sin.f64 phi1) delta) #s(literal -1/2 binary64) (cos.f64 phi1))) (sin.f64 phi1)))))))
	85.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 delta #s(approx (+ (* (* -1/2 delta) (sin phi1)) (* (cos theta) (cos phi1))) (cos.f64 theta)) (sin.f64 phi1)))))))
	87.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))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	85.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (sin (+ phi1 delta)) (fma.f64 (cos.f64 phi1) delta (sin.f64 phi1))))))))
	92.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	81.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	80.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (-.f64 (fma.f64 (neg.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	80.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
	79.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))))))) (sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	77.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))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	87.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))))
	76.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) #s(literal 1 binary64)))))
✓	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) #s(literal 1 binary64)))))
✓	78.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	78.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #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)))))))))
✓	78.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #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)))))))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #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)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	66.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #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)) (.f64 (sin.f64 phi1) #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)))))))))
	71.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) (.f64 (sin.f64 phi1) #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)))))))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(approx (sin delta) delta) (.f64 (sin.f64 phi1) #s(approx (cos delta) (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 delta delta) #s(literal 1 binary64)))))))))
	78.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 delta delta)) #s(literal 1/2 binary64)) (.f64 delta delta) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #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)))))))))
	77.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (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) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) #s(approx (cos delta) (fma.f64 (-.f64 (.f64 (.f64 delta delta) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 delta delta) #s(literal 1 binary64)))))))))
	78.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))))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)))))))
	72.7%	(+.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))) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	80.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 phi1)))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	74.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	87.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	68.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) (.f64 (fma.f64 (-.f64 (.f64 (.f64 theta theta) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 theta theta) #s(literal 1 binary64)) theta)) (sin.f64 delta)) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	69.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) theta)) (sin.f64 delta)) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	71.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	73.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (sin (+ phi1 (/ (PI) 2)))) (.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 phi1 delta)))))))
	72.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	75.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.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)))))))
✓	86.1%	(+.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) (fma.f64 #s(approx (* (cos theta) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	85.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) (fma.f64 #s(approx (* (cos theta) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
✓	85.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)))))))
	85.3%	(+.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) phi1)))))))
	86.0%	(+.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.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	75.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (* (cos theta) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	75.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) #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)))))))
	34.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (sin (+ phi1 (/ (PI) 2)))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (sin (+ phi1 (/ (PI) 2)))) (- (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 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	34.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.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)))))
✓	67.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))))))))) lambda1)

Compiler

Compiled 4 586 to 2 856 computations (37.7% saved)

regimes219.0ms (2.4%)

Memory

5.8MiB live, 344.6MiB allocated; 27ms collecting garbage

Counts

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

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

Calls

7 calls:

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

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 55 to 70 computations (-27.3% saved)

regimes158.0ms (1.7%)

Memory

-8.0MiB live, 324.5MiB allocated; 17ms collecting garbage

Counts

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

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

Outputs

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

#s(approx (+ lambda1 (atan2 (* (* (sin 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)))))

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes25.0ms (0.3%)

Memory

9.1MiB live, 55.5MiB allocated; 1ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

1 calls:

21.0ms

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

Results

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

Compiler

Compiled 26 to 23 computations (11.5% saved)

regimes109.0ms (1.2%)

Memory

-30.3MiB live, 118.8MiB allocated; 94ms collecting garbage

Counts

82 → 1

Calls

Call 1

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

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

Calls

2 calls:

72.0ms

theta

33.0ms

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

Results

Accuracy	Segments	Branch
94.8%	1	`theta`
94.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)))))))))`

Compiler

Compiled 27 to 28 computations (-3.7% saved)

regimes113.0ms (1.2%)

Memory

27.7MiB live, 171.9MiB allocated; 11ms collecting garbage

Counts

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

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

Calls

7 calls:

19.0ms	delta
16.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)))))))))
16.0ms	phi1
15.0ms	phi2
15.0ms	theta

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes74.0ms (0.8%)

Memory

-5.7MiB live, 132.9MiB allocated; 11ms collecting garbage

Counts

36 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes95.0ms (1%)

Memory

30.8MiB live, 165.4MiB allocated; 37ms collecting garbage

Counts

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes65.0ms (0.7%)

Memory

-19.5MiB live, 72.9MiB allocated; 8ms collecting garbage

Counts

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
92.1%	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)))))))))`
87.4%	1	`phi2`
92.1%	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))))))))`
87.4%	1	`lambda1`
90.0%	2	`phi1`
92.4%	3	`delta`
87.4%	1	`theta`

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes9.0ms (0.1%)

Memory

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

Counts

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

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)) (-.f64 #s(approx (cos delta) #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) (sin.f64 delta)) (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:

8.0ms

delta

Results

Accuracy	Segments	Branch
92.4%	3	`delta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes36.0ms (0.4%)

Memory

-26.3MiB live, 20.2MiB allocated; 23ms collecting garbage

Counts

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

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))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))))

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

Calls

2 calls:

28.0ms

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

7.0ms

delta

Results

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

Compiler

Compiled 27 to 28 computations (-3.7% saved)

regimes8.0ms (0.1%)

Memory

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

Counts

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

Calls

1 calls:

7.0ms

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

Results

Accuracy	Segments	Branch
92.1%	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 26 to 23 computations (11.5% saved)

regimes8.0ms (0.1%)

Memory

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

Counts

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

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))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))))

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

Calls

1 calls:

7.0ms

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

Results

Accuracy	Segments	Branch
92.1%	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 26 to 23 computations (11.5% saved)

regimes14.0ms (0.2%)

Memory

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

Counts

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

Calls

2 calls:

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

Results

Accuracy	Segments	Branch
92.1%	3	`delta`
91.9%	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 27 to 28 computations (-3.7% saved)

regimes44.0ms (0.5%)

Memory

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

Outputs

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

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes30.0ms (0.3%)

Memory

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

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes21.0ms (0.2%)

Memory

-17.5MiB live, 29.3MiB allocated; 1ms collecting garbage

Counts

8 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
77.9%	1	`lambda1`
81.2%	3	`theta`
79.7%	2	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
79.7%	2	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
77.9%	1	`phi1`
77.9%	1	`phi2`
79.9%	2	`delta`

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes5.0ms (0.1%)

Memory

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

Counts

5 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

2.0ms

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

2.0ms

delta

Results

Accuracy	Segments	Branch
79.7%	2	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
79.6%	2	`delta`

Compiler

Compiled 25 to 27 computations (-8% saved)

regimes54.0ms (0.6%)

Memory

-23.1MiB live, 21.8MiB allocated; 52ms 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 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 delta) theta)) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
75.0%	1	`lambda1`
75.0%	1	`phi1`
75.0%	1	`phi2`
80.5%	3	`delta`
80.9%	3	`theta`
79.1%	2	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
79.1%	2	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes2.0ms (0%)

Memory

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

Counts

3 → 3

Calls

Call 1

Inputs

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

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

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

Outputs

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

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

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

Calls

1 calls:

2.0ms

theta

Results

Accuracy	Segments	Branch
80.9%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes6.0ms (0.1%)

Memory

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

Outputs

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

Calls

4 calls:

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

Results

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

Compiler

Compiled 52 to 55 computations (-5.8% saved)

regimes8.0ms (0.1%)

Memory

15.7MiB live, 15.7MiB 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	lambda1
1.0ms	delta
1.0ms	theta

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	-0.17994737314967715	-0.11306664138380866
0.0ms	-2335.5770909364164	-3.141592653589793

Compiler

Compiled 29 to 31 computations (-6.9% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	-0.17994737314967715	-0.11306664138380866
0.0ms	-2335.5770909364164	-3.141592653589793

Compiler

Compiled 29 to 31 computations (-6.9% saved)

bsearch92.0ms (1%)

Memory

-18.5MiB live, 77.8MiB allocated; 10ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
39.0ms	0.14432347977282864	191.9079121915179
47.0ms	-4.985467417996361e+41	-2.0266905339397287e+36

Samples

75.0ms

272×

valid

Compiler

Compiled 1 022 to 1 034 computations (-1.2% saved)

Precisions

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

ival-sin: 30.0ms (45.4% of total)

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch88.0ms (1%)

Memory

26.5MiB live, 71.9MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
30.0ms	1.7125090140149881e-12	1.762885592581854e-8
52.0ms	-2.6676680801515252e+50	-1.7104300280727662e+43

Samples

70.0ms

272×

valid

Compiler

Compiled 1 039 to 1 051 computations (-1.2% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.2934267660486903e-10	1.8799912380913217e-9
0.0ms	-0.5512929503558182	-0.34334542786420397

Compiler

Compiled 29 to 31 computations (-6.9% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.2934267660486903e-10	1.8799912380913217e-9
0.0ms	-0.5512929503558182	-0.34334542786420397

Compiler

Compiled 29 to 31 computations (-6.9% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.2934267660486903e-10	1.8799912380913217e-9
0.0ms	-0.5512929503558182	-0.34334542786420397

Compiler

Compiled 29 to 31 computations (-6.9% saved)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.7125090140149881e-12	1.762885592581854e-8
1.0ms	-2.6676680801515252e+50	-1.7104300280727662e+43

Compiler

Compiled 1 073 to 1 068 computations (0.5% saved)

bsearch34.0ms (0.4%)

Memory

-18.8MiB live, 29.1MiB allocated; 6ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
32.0ms	0.14432347977282864	191.9079121915179

Samples

24.0ms

96×

valid

Compiler

Compiled 652 to 639 computations (2% saved)

Precisions

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

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

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

ival-mult!: 2.0ms (9.6% of total)

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

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

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

adjust: 0.0ms (0% of total)

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

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.9013071548767377	1.0136287067078933

Compiler

Compiled 29 to 31 computations (-6.9% saved)

bsearch70.0ms (0.8%)

Memory

11.8MiB live, 57.6MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
28.0ms	0.003101581946027493	0.10596807425565
38.0ms	-1.399755687580149e+21	-287851871263018340.0

Samples

55.0ms

240×

valid

Compiler

Compiled 1 116 to 1 081 computations (3.1% saved)

Precisions

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

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

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

ival-mult!: 6.0ms (12.8% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.003101581946027493	0.10596807425565
1.0ms	-1.399755687580149e+21	-287851871263018340.0

Compiler

Compiled 1 116 to 1 081 computations (3.1% saved)

derivations487.0ms (5.4%)

Memory

-8.2MiB live, 266.5MiB allocated; 19ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 431 to 223 computations (48.3% saved)

preprocess232.0ms (2.6%)

Memory: 16.0MiB live, 343.1MiB allocated; 42ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 2 839 to 2 142 computations (24.6% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze2.0s (21.5%)

sample2.8s (30.5%)

preprocess59.0ms (0.7%)

series78.0ms (0.9%)

rewrite244.0ms (2.7%)

eval41.0ms (0.5%)

prune103.0ms (1.1%)

series100.0ms (1.1%)

rewrite322.0ms (3.5%)

eval136.0ms (1.5%)

prune81.0ms (0.9%)

series58.0ms (0.6%)

rewrite222.0ms (2.4%)

eval116.0ms (1.3%)

prune72.0ms (0.8%)

series74.0ms (0.8%)

rewrite239.0ms (2.6%)

eval185.0ms (2%)

prune117.0ms (1.3%)

regimes219.0ms (2.4%)

regimes158.0ms (1.7%)

regimes25.0ms (0.3%)

regimes109.0ms (1.2%)

regimes113.0ms (1.2%)

regimes74.0ms (0.8%)

regimes95.0ms (1%)

regimes65.0ms (0.7%)

regimes9.0ms (0.1%)

regimes36.0ms (0.4%)

regimes8.0ms (0.1%)

regimes8.0ms (0.1%)

regimes14.0ms (0.2%)

regimes44.0ms (0.5%)

regimes30.0ms (0.3%)

regimes21.0ms (0.2%)

regimes5.0ms (0.1%)

regimes54.0ms (0.6%)

regimes2.0ms (0%)

regimes6.0ms (0.1%)

regimes8.0ms (0.1%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch92.0ms (1%)

bsearch88.0ms (1%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch3.0ms (0%)

bsearch34.0ms (0.4%)

bsearch0.0ms (0%)

bsearch70.0ms (0.8%)

bsearch3.0ms (0%)

derivations487.0ms (5.4%)

preprocess232.0ms (2.6%)

end0.0ms (0%)

Profiling