Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze1.4s (15%)

Memory

64.2MiB live, 2 716.7MiB allocated; 398ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 35 to 25 computations (28.6% saved)

sample3.9s (41%)

Memory

-32.1MiB live, 5 231.4MiB allocated; 2.1s collecting garbage

Samples

2.4s

8 256×

valid

Precisions

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

ival-sin: 805.0ms (39.3% of total)

ival-cos: 744.0ms (36.3% of total)

ival-mult!: 252.0ms (12.3% of total)

ival-asin: 108.0ms (5.3% of total)

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

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

ival-sub!: 18.0ms (0.9% of total)

adjust: 2.0ms (0.1% of total)

Bogosity

preprocess65.0ms (0.7%)

Memory

-31.1MiB live, 61.6MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	179	668
1	786	659
2	4314	659

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)

series46.0ms (0.5%)

Memory

28.2MiB live, 127.5MiB allocated; 5ms collecting garbage

Counts

22 → 119

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

rewrite238.0ms (2.5%)

Memory

126.9MiB live, 415.4MiB allocated; 104ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	609	3880
0	637	3759
1	4895	3673
0	8061	3459

Stop Event

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

Counts

141 → 253

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

eval108.0ms (1.1%)

Memory: -4.5MiB live, 97.8MiB allocated; 82ms collecting garbage
Compiler: Compiled 4 501 to 1 875 computations (58.3% saved)

prune32.0ms (0.3%)

Memory

2.4MiB live, 53.5MiB allocated; 6ms collecting garbage

Pruning

26 alts after pruning (26 fresh and 0 done)

	Pruned	Kept	Total
New	195	26	221
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	196	26	222

Accuracy

99.8%

Counts

222 → 26

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.5%	(/.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))))))))
	67.8%	(/.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.2%	(+.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 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
▶	99.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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (/.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)))))))))
	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)))))))))))
	83.5%	(+.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)))))))
	79.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1)))))))
	88.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	91.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 (+.f64 delta phi1)))))))
	48.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 (asin.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	83.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (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)))))))))
	92.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
▶	74.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
	77.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 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)))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	79.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (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))))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.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))))))))
	75.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
▶	88.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	54.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 delta)) (cos.f64 theta)))))))))
▶	82.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (cos.f64 theta)))))))))
▶	75.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	71.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	37.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))

Compiler

Compiled 1 888 to 1 580 computations (16.3% saved)

series60.0ms (0.6%)

Memory

10.3MiB live, 103.7MiB allocated; 3ms collecting garbage

Counts

53 → 158

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

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

rewrite220.0ms (2.3%)

Memory

-21.5MiB live, 262.5MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	840	5449
0	937	5359
1	6925	5274
0	8664	5045

Stop Event

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

Counts

211 → 474

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

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

eval98.0ms (1%)

Memory: 4.1MiB live, 192.3MiB allocated; 15ms collecting garbage
Compiler: Compiled 11 552 to 4 010 computations (65.3% saved)

prune60.0ms (0.6%)

Memory

4.7MiB live, 98.3MiB allocated; 4ms collecting garbage

Pruning

51 alts after pruning (49 fresh and 2 done)

	Pruned	Kept	Total
New	595	41	636
Fresh	13	8	21
Picked	3	2	5
Done	0	0	0
Total	611	51	662

Accuracy

99.8%

Counts

662 → 51

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.5%	(/.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))))))))
	59.6%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (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))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (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)))))
	48.6%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (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)) (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)))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (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)))))))
	67.6%	(+.f64 lambda1 (atan2.f64 (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	88.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)))))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	85.8%	(+.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))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.2%	(+.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))))))))
	54.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (fma.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)) (.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (/.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)))))))))
	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)))))))))))
	83.5%	(+.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 phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	79.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1)))))))
	88.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 (+ ( (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	74.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 delta)))))))
	83.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (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)))))))))
	92.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))
	74.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)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (*.f64 phi1 phi1))))))
	67.4%	(+.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) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (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)))))))))
	88.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (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))))))))
▶	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.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))))))))
	75.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
▶	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	74.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))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	88.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	68.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (fma.f64 (fma.f64 (.f64 delta delta) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (.f64 delta delta) #s(literal 1 binary64))))))
	75.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))))
	74.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	71.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
	73.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	68.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (cos.f64 theta)))))))))
	85.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	84.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (/.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 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (cos.f64 theta)))))))))
	82.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 theta) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))))
▶	82.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (sin.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64))))))))))))
	88.8%	(+.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.5%	(+.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)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	69.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	71.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	69.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	53.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	86.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	73.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
▶	85.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	88.7%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (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))) lambda1)) lambda1)
	85.7%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (cos.f64 theta))) (sin.f64 phi1)))) lambda1)) lambda1)
	37.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (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)))))

Compiler

Compiled 3 807 to 3 053 computations (19.8% saved)

series174.0ms (1.8%)

Memory

-6.1MiB live, 183.5MiB allocated; 63ms collecting garbage

Counts

65 → 319

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

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

Calls

15 calls:

Time	Variable		Point	Expression
50.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (pow (* (sin phi1) (cos delta)) 2) (* (sin phi1) (cos delta)) 2 (pow (* (cos theta) (* (cos phi1) (sin delta))) 2) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (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 (+ (neg delta) (/ (PI) 2))) (+ (neg delta) (/ (PI) 2)) (neg delta) (/ (PI) 2) (PI) (+ lambda1 (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))))))) (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) (* (* (cos phi1) delta) (* (cos theta) (sin phi1))) (* (cos phi1) delta) (* (cos theta) (sin phi1)) 1 (- 1/2 (* 1/2 (cos (* 2 phi1)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (cos phi1) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))) (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))) (+ theta (/ (PI) 2)))
25.0ms	theta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (pow (* (sin phi1) (cos delta)) 2) (* (sin phi1) (cos delta)) 2 (pow (* (cos theta) (* (cos phi1) (sin delta))) 2) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (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 (+ (neg delta) (/ (PI) 2))) (+ (neg delta) (/ (PI) 2)) (neg delta) (/ (PI) 2) (PI) (+ lambda1 (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))))))) (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) (* (* (cos phi1) delta) (* (cos theta) (sin phi1))) (* (cos phi1) delta) (* (cos theta) (sin phi1)) 1 (- 1/2 (* 1/2 (cos (* 2 phi1)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (cos phi1) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))) (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))) (+ theta (/ (PI) 2)))
14.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (pow (* (sin phi1) (cos delta)) 2) (* (sin phi1) (cos delta)) 2 (pow (* (cos theta) (* (cos phi1) (sin delta))) 2) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (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 (+ (neg delta) (/ (PI) 2))) (+ (neg delta) (/ (PI) 2)) (neg delta) (/ (PI) 2) (PI) (+ lambda1 (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))))))) (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) (* (* (cos phi1) delta) (* (cos theta) (sin phi1))) (* (cos phi1) delta) (* (cos theta) (sin phi1)) 1 (- 1/2 (* 1/2 (cos (* 2 phi1)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (cos phi1) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))) (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))) (+ theta (/ (PI) 2)))
11.0ms	delta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (pow (* (sin phi1) (cos delta)) 2) (* (sin phi1) (cos delta)) 2 (pow (* (cos theta) (* (cos phi1) (sin delta))) 2) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (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 (+ (neg delta) (/ (PI) 2))) (+ (neg delta) (/ (PI) 2)) (neg delta) (/ (PI) 2) (PI) (+ lambda1 (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))))))) (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) (* (* (cos phi1) delta) (* (cos theta) (sin phi1))) (* (cos phi1) delta) (* (cos theta) (sin phi1)) 1 (- 1/2 (* 1/2 (cos (* 2 phi1)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (cos phi1) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))) (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))) (+ theta (/ (PI) 2)))
11.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (pow (* (sin phi1) (cos delta)) 2) (* (sin phi1) (cos delta)) 2 (pow (* (cos theta) (* (cos phi1) (sin delta))) 2) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (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 (+ (neg delta) (/ (PI) 2))) (+ (neg delta) (/ (PI) 2)) (neg delta) (/ (PI) 2) (PI) (+ lambda1 (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))))))) (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) (* (* (cos phi1) delta) (* (cos theta) (sin phi1))) (* (cos phi1) delta) (* (cos theta) (sin phi1)) 1 (- 1/2 (* 1/2 (cos (* 2 phi1)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (cos phi1) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))) (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))) (+ theta (/ (PI) 2)))

rewrite212.0ms (2.2%)

Memory

22.1MiB live, 258.0MiB allocated; 27ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1739	17471
0	1842	16451
0	8097	16047

Stop Event

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

Counts

384 → 465

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

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

eval92.0ms (1%)

Memory: 9.5MiB live, 145.0MiB allocated; 11ms collecting garbage
Compiler: Compiled 17 129 to 4 334 computations (74.7% saved)

prune73.0ms (0.8%)

Memory

13.4MiB live, 111.4MiB allocated; 11ms collecting garbage

Pruning

62 alts after pruning (58 fresh and 4 done)

	Pruned	Kept	Total
New	519	30	549
Fresh	16	28	44
Picked	3	2	5
Done	0	2	2
Total	538	62	600

Accuracy

99.9%

Counts

600 → 62

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.5%	(/.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))))))))
	57.0%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))
	67.6%	(+.f64 lambda1 (atan2.f64 (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	85.8%	(+.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))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	54.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (fma.f64 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)) (.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1))))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (fma.f64 (sin.f64 (neg.f64 delta)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 (neg.f64 delta)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 (neg.f64 delta)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (/.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)))))))))
	79.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	88.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 (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	83.5%	(+.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 phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
▶	74.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 delta)))))))
	92.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))
	74.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)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
▶	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (*.f64 phi1 phi1))))))
	67.4%	(+.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) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (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)))))))))
	75.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (/.f64 (-.f64 (.f64 (+.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi1) delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 1 binary64)) (+.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi1) delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 1 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (+.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)))))))))
	76.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (neg.f64 (.f64 #s(approx ( (cos phi1) delta) 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))))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(approx (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (.f64 delta (-.f64 (/.f64 #s(literal 1 binary64) delta) (.f64 (cos.f64 phi1) (.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))))))))
	75.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
✓	88.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
▶	76.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
	76.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (.f64 delta (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) delta) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) delta))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (sin (+ (neg delta) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) delta))))))
	75.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))))
	74.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	71.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
	68.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (cos.f64 theta)))))))))
	85.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	84.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (/.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 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (cos.f64 theta)))))))))
	82.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 theta) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))))
	82.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (sin.f64 #s(approx (+ theta (/ (PI) 2)) (+.f64 theta (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
	82.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (sin.f64 #s(approx (+ theta (/ (PI) 2)) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) theta))))))))))))))
	86.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 (+.f64 theta (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
	85.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))) (.f64 (sin.f64 delta) (sin.f64 (+.f64 theta (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
	82.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))) (.f64 phi1 (.f64 (sin.f64 delta) (sin.f64 (+.f64 theta (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
	88.8%	(+.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))))
	69.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	67.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	71.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	69.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	53.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) (fma.f64 (.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	86.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	73.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
	85.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (sin.f64 (neg.f64 delta)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	86.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	72.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	72.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	85.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	68.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (sin (+ (neg delta) (/ (PI) 2))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 delta delta)) #s(literal 1/2 binary64))))))))
	72.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (sin (+ (neg delta) (/ (PI) 2))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))))))
	67.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 delta delta))))))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	66.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))))) (sin.f64 delta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	67.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	75.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) #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))))))))
▶	70.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	88.7%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (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))) lambda1)) lambda1)
	37.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (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)))))

Compiler

Compiled 4 924 to 4 062 computations (17.5% saved)

series141.0ms (1.5%)

Memory

6.6MiB live, 198.7MiB allocated; 27ms collecting garbage

Counts

69 → 305

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
22.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))))) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (sin (neg delta)) (neg delta) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos delta) (sin (/ (PI) 2))) (cos delta) (sin (/ (PI) 2)) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))))) (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))) (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (* delta (sin theta)) (- (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)))))) (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (* phi1 phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* delta (* (cos phi1) (sin phi1)))) (+ 1/2 (* 1/2 (cos (* 2 phi1)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (* delta (* (cos phi1) (sin phi1))) (* (cos phi1) (sin phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta)))) (sin phi1) (* (+ (* -1/6 (* phi1 phi1)) 1) phi1) (+ (* -1/6 (* phi1 phi1)) 1) -1/6 1 (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (* (sin phi1) (cos delta)))
13.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))))) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (sin (neg delta)) (neg delta) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos delta) (sin (/ (PI) 2))) (cos delta) (sin (/ (PI) 2)) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))))) (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))) (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (* delta (sin theta)) (- (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)))))) (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (* phi1 phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* delta (* (cos phi1) (sin phi1)))) (+ 1/2 (* 1/2 (cos (* 2 phi1)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (* delta (* (cos phi1) (sin phi1))) (* (cos phi1) (sin phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta)))) (sin phi1) (* (+ (* -1/6 (* phi1 phi1)) 1) phi1) (+ (* -1/6 (* phi1 phi1)) 1) -1/6 1 (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (* (sin phi1) (cos delta)))
12.0ms	theta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))))) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (sin (neg delta)) (neg delta) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos delta) (sin (/ (PI) 2))) (cos delta) (sin (/ (PI) 2)) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))))) (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))) (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (* delta (sin theta)) (- (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)))))) (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (* phi1 phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* delta (* (cos phi1) (sin phi1)))) (+ 1/2 (* 1/2 (cos (* 2 phi1)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (* delta (* (cos phi1) (sin phi1))) (* (cos phi1) (sin phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta)))) (sin phi1) (* (+ (* -1/6 (* phi1 phi1)) 1) phi1) (+ (* -1/6 (* phi1 phi1)) 1) -1/6 1 (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (* (sin phi1) (cos delta)))
12.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))))) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (sin (neg delta)) (neg delta) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos delta) (sin (/ (PI) 2))) (cos delta) (sin (/ (PI) 2)) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))))) (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))) (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (* delta (sin theta)) (- (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)))))) (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (* phi1 phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* delta (* (cos phi1) (sin phi1)))) (+ 1/2 (* 1/2 (cos (* 2 phi1)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (* delta (* (cos phi1) (sin phi1))) (* (cos phi1) (sin phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta)))) (sin phi1) (* (+ (* -1/6 (* phi1 phi1)) 1) phi1) (+ (* -1/6 (* phi1 phi1)) 1) -1/6 1 (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (* (sin phi1) (cos delta)))
12.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))))) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (sin (neg delta)) (neg delta) (cos (/ (PI) 2)) (/ (PI) 2) (PI) 2 (* (cos delta) (sin (/ (PI) 2))) (cos delta) (sin (/ (PI) 2)) (* (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))))) (sin phi1) (/ (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta))))) (- (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (pow (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) 2) (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (- (* (sin phi1) (+ (* (sin (neg delta)) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (* delta (sin theta)) (- (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)))))) (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (* phi1 phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* delta (* (cos phi1) (sin phi1)))) (+ 1/2 (* 1/2 (cos (* 2 phi1)))) 1/2 (* 1/2 (cos (* 2 phi1))) (cos (* 2 phi1)) (* 2 phi1) (* delta (* (cos phi1) (sin phi1))) (* (cos phi1) (sin phi1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta)))) (sin phi1) (* (+ (* -1/6 (* phi1 phi1)) 1) phi1) (+ (* -1/6 (* phi1 phi1)) 1) -1/6 1 (+ (* (cos phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (* (sin phi1) (cos delta)))

rewrite229.0ms (2.4%)

Memory

-36.4MiB live, 290.4MiB allocated; 34ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1709	23228
0	1816	21413
0	8027	20755

Stop Event

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

Counts

374 → 442

Calls

Call 1

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

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

eval101.0ms (1.1%)

Memory: 14.9MiB live, 150.5MiB allocated; 14ms collecting garbage
Compiler: Compiled 23 126 to 4 292 computations (81.4% saved)

prune99.0ms (1%)

Memory

25.5MiB live, 123.9MiB allocated; 9ms collecting garbage

Pruning

66 alts after pruning (61 fresh and 5 done)

	Pruned	Kept	Total
New	525	18	543
Fresh	10	43	53
Picked	4	1	5
Done	0	4	4
Total	539	66	605

Accuracy

99.9%

Counts

605 → 66

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.5%	(/.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))))))))
	57.0%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))
	67.6%	(+.f64 lambda1 (atan2.f64 (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64)) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	85.8%	(+.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))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	55.2%	(+.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 #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (.f64 phi1 phi1))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (.f64 phi1 phi1))) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (.f64 phi1 phi1))) (.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (*.f64 phi1 phi1)))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (fma.f64 (sin.f64 (neg.f64 delta)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (neg.f64 (sin.f64 delta)) #s(literal 0 binary64) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) #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) (fma.f64 (neg.f64 (sin.f64 delta)) #s(literal 0 binary64) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1))))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (/.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)))))))))
	88.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 (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	83.5%	(+.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 phi1) (* (cos theta) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	92.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))
	93.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	74.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)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (.f64 (.f64 phi1 phi1) (cos.f64 delta)))))))
	67.4%	(+.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) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (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)))))))))
	75.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	76.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (neg.f64 (.f64 #s(approx ( (cos phi1) delta) 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))))))))
	75.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
✓	88.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	76.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
	76.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* delta (* (cos phi1) (sin phi1)))) (.f64 delta (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (.f64 #s(literal 2 binary64) phi1)) delta) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) delta))) (.f64 (cos.f64 phi1) (sin.f64 phi1)))))))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (sin (+ (neg delta) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) delta))))))
	71.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
	67.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 delta)))))))
	71.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (*.f64 phi1 phi1))))))
	60.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 delta (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))) (sin.f64 phi1))))))))
	64.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))))) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(approx (sin phi1) (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 delta)))))))
	68.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (cos.f64 theta)))))))))
	85.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (cos.f64 theta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	84.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (/.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 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (cos.f64 theta)))))))))
	82.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 theta) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))))
	82.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (sin.f64 #s(approx (+ theta (/ (PI) 2)) (+.f64 theta (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
	82.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (sin.f64 #s(approx (+ theta (/ (PI) 2)) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) theta))))))))))))))
	86.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 (+.f64 theta (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
	85.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2))))))) (.f64 (sin.f64 delta) (sin.f64 (+.f64 theta (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
	82.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (sin (+ theta (/ (PI) 2)))))))) (.f64 phi1 (.f64 (sin.f64 delta) (sin.f64 (+.f64 theta (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
	62.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (*.f64 phi1 phi1))))))
	88.8%	(+.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))))
	69.9%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	67.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	71.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	69.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) theta) (sin.f64 delta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	86.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	73.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
	85.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (sin.f64 (neg.f64 delta)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
	86.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	72.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (neg.f64 delta) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	72.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	85.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	72.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (sin (+ (neg delta) (/ (PI) 2))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))))))
	67.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 delta delta))))))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	75.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) phi1) (*.f64 phi1 phi1))))))
	67.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	75.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) #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))))))))
	75.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (- (+ (neg (* (* (cos phi1) delta) (* (cos theta) (sin phi1)))) 1) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
	70.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.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))))))))
	69.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
✓	70.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	68.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 delta delta)) #s(literal 1/2 binary64))))))))
	70.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))))))
	61.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 delta #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))))))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	62.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin theta) (sin delta)) (.f64 delta #s(approx (sin theta) theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	88.7%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (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))) lambda1)) lambda1)
	37.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (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)))))

Compiler

Compiled 5 250 to 3 069 computations (41.5% saved)

regimes284.0ms (3%)

Memory

-14.0MiB live, 228.4MiB allocated; 111ms collecting garbage

Counts

116 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

89.0ms	phi1
39.0ms	lambda1
34.0ms	delta
32.0ms	theta
27.0ms	phi2

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes230.0ms (2.4%)

Memory

14.9MiB live, 246.4MiB allocated; 14ms collecting garbage

Counts

113 → 1

Calls

Call 1

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

Calls

7 calls:

41.0ms	theta
39.0ms	phi1
31.0ms	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
29.0ms	phi2
29.0ms	lambda1

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes190.0ms (2%)

Memory

-17.6MiB live, 265.0MiB allocated; 18ms collecting garbage

Counts

99 → 1

Calls

Call 1

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

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

Calls

7 calls:

33.0ms	theta
29.0ms	delta
26.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
25.0ms	phi1
24.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
93.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))))))))`
93.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)))))))))`
93.8%	1	`lambda1`
93.8%	1	`phi1`
93.8%	1	`phi2`
93.8%	1	`delta`
93.8%	1	`theta`

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes155.0ms (1.6%)

Memory

13.5MiB live, 293.2MiB allocated; 31ms collecting garbage

Counts

83 → 1

Calls

Call 1

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

27.0ms	phi2
22.0ms	delta
22.0ms	phi1
20.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)))))))))
20.0ms	lambda1

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes73.0ms (0.8%)

Memory

6.0MiB live, 149.0MiB allocated; 7ms collecting garbage

Counts

38 → 3

Calls

Call 1

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

Outputs

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

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes77.0ms (0.8%)

Memory

-1.5MiB live, 134.9MiB allocated; 18ms collecting garbage

Counts

34 → 1

Calls

Call 1

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes59.0ms (0.6%)

Memory

19.3MiB live, 108.9MiB allocated; 9ms collecting garbage

Counts

26 → 1

Calls

Call 1

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

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:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes67.0ms (0.7%)

Memory

14.2MiB live, 105.1MiB allocated; 22ms collecting garbage

Counts

25 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes29.0ms (0.3%)

Memory

13.5MiB live, 58.4MiB allocated; 5ms collecting garbage

Counts

11 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
76.4%	3	`theta`
72.5%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
72.5%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
72.5%	1	`lambda1`
72.5%	1	`phi2`
72.5%	1	`phi1`
74.5%	2	`delta`

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes8.0ms (0.1%)

Memory

-36.1MiB live, 8.9MiB allocated; 5ms collecting garbage

Counts

9 → 3

Calls

Call 1

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

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

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

Calls

1 calls:

3.0ms

theta

Results

Accuracy	Segments	Branch
76.4%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes5.0ms (0.1%)

Memory

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

Counts

6 → 3

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

2.0ms	delta
2.0ms	theta

Results

Accuracy	Segments	Branch
75.5%	3	`delta`
75.8%	3	`theta`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes46.0ms (0.5%)

Memory

-9.4MiB live, 37.5MiB allocated; 39ms collecting garbage

Counts

5 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

33.0ms	delta
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	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	phi2

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes14.0ms (0.1%)

Memory

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

Counts

4 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes3.0ms (0%)

Memory

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

Counts

3 → 1

Calls

Call 1

Inputs

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

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

Calls

2 calls:

1.0ms	phi2
1.0ms	lambda1

Results

Accuracy	Segments	Branch
70.1%	1	`phi2`
70.1%	1	`lambda1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes11.0ms (0.1%)

Memory

-22.7MiB live, 22.7MiB allocated; 4ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

bsearch67.0ms (0.7%)

Memory

23.7MiB live, 112.9MiB allocated; 11ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
12.0ms	1.1799789156796246e-7	1.5662958407821348e-7
50.0ms	-1.4541596580667019e-5	-1.5850792751158258e-20

Samples

54.0ms

208×

valid

Compiler

Compiled 829 to 824 computations (0.6% saved)

Precisions

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

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

ival-sin: 15.0ms (32.4% of total)

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch91.0ms (1%)

Memory

-2.2MiB live, 131.9MiB allocated; 29ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
44.0ms	2.1245811831667917e-117	4.121592861950252e-112
42.0ms	-1384142488920234.8	-154928219924783.72

Samples

71.0ms

240×

valid

Compiler

Compiled 1 248 to 1 132 computations (9.3% saved)

Precisions

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

ival-sin: 22.0ms (45.7% of total)

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch78.0ms (0.8%)

Memory

18.3MiB live, 108.5MiB allocated; 26ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
50.0ms	16242310.226928676	1152436071.3096354
24.0ms	-3740706.5251287706	-2092901.7652277225

Samples

66.0ms

176×

valid

Compiler

Compiled 872 to 812 computations (6.9% saved)

Precisions

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

ival-mult!: 26.0ms (43.6% of total)

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

ival-cos: 12.0ms (20.1% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch2.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.1245811831667917e-117	4.121592861950252e-112
1.0ms	-3740706.5251287706	-2092901.7652277225

Compiler

Compiled 998 to 876 computations (12.2% saved)

bsearch56.0ms (0.6%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
52.0ms	-3.816641496744706e-94	-1.966132968470709e-106

Samples

45.0ms

160×

valid

Compiler

Compiled 896 to 761 computations (15.1% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

derivations457.0ms (4.8%)

Memory

-34.2MiB live, 506.4MiB allocated; 109ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 282 to 162 computations (42.6% saved)

preprocess148.0ms (1.5%)

Memory: 30.5MiB live, 364.5MiB allocated; 47ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 1 650 to 1 289 computations (21.9% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.4s (15%)

sample3.9s (41%)

preprocess65.0ms (0.7%)

series46.0ms (0.5%)

rewrite238.0ms (2.5%)

eval108.0ms (1.1%)

prune32.0ms (0.3%)

series60.0ms (0.6%)

rewrite220.0ms (2.3%)

eval98.0ms (1%)

prune60.0ms (0.6%)

series174.0ms (1.8%)

rewrite212.0ms (2.2%)

eval92.0ms (1%)

prune73.0ms (0.8%)

series141.0ms (1.5%)

rewrite229.0ms (2.4%)

eval101.0ms (1.1%)

prune99.0ms (1%)

regimes284.0ms (3%)

regimes230.0ms (2.4%)

regimes190.0ms (2%)

regimes155.0ms (1.6%)

regimes73.0ms (0.8%)

regimes77.0ms (0.8%)

regimes59.0ms (0.6%)

regimes67.0ms (0.7%)

regimes29.0ms (0.3%)

regimes8.0ms (0.1%)

regimes5.0ms (0.1%)

regimes46.0ms (0.5%)

regimes14.0ms (0.1%)

regimes3.0ms (0%)

regimes11.0ms (0.1%)

bsearch67.0ms (0.7%)

bsearch91.0ms (1%)

bsearch78.0ms (0.8%)

bsearch2.0ms (0%)

bsearch56.0ms (0.6%)

derivations457.0ms (4.8%)

preprocess148.0ms (1.5%)

end0.0ms (0%)

Profiling