Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze1.1s (5.6%)

Memory

-30.0MiB live, 353.2MiB allocated; 85ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 35 to 25 computations (28.6% saved)

sample2.4s (11.9%)

Memory

45.7MiB live, 740.6MiB allocated; 112ms collecting garbage

Samples

2.0s

8 256×

valid

Precisions

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

ival-sin: 673.0ms (40.1% of total)

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

ival-mult!: 224.0ms (13.3% of total)

ival-asin: 111.0ms (6.6% of total)

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

ival-add!: 39.0ms (2.3% of total)

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

adjust: 2.0ms (0.1% of total)

Bogosity

preprocess54.0ms (0.3%)

Memory

-13.7MiB live, 32.9MiB allocated; 4ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	179	668
1	665	663
2	3092	663

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)

series40.0ms (0.2%)

Memory

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

Counts

22 → 146

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (cos delta))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* -1/6 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* 1/120 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (sin delta) #s(hole binary64 delta))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* -1/6 (pow delta 2))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))))
#s(approx delta #s(hole binary64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (cos delta) #s(hole binary64 1))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (sin phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (cos phi1))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (sin theta) #s(hole binary64 theta))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* -1/6 (pow theta 2))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* 1/120 (pow theta 2)) 1/6))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/120 (* -1/5040 (pow theta 2)))) 1/6))))))
#s(approx theta #s(hole binary64 theta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (cos theta) #s(hole binary64 1))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* -1/2 (pow theta 2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* 1/24 (pow theta 2)) 1/2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/24 (* -1/720 (pow theta 2)))) 1/2)))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))
#s(approx (cos theta) #s(hole binary64 (cos theta)))

Calls

15 calls:

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

rewrite2.6s (12.8%)

Memory

-6.2MiB live, 1 379.0MiB allocated; 286ms collecting garbage

Counts

168 → 226

Calls

Call 1

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

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

eval29.0ms (0.1%)

Memory: -18.3MiB live, 27.5MiB allocated; 3ms collecting garbage
Compiler: Compiled 3 883 to 1 500 computations (61.4% saved)

prune23.0ms (0.1%)

Memory

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

Pruning

23 alts after pruning (23 fresh and 0 done)

	Pruned	Kept	Total
New	162	23	185
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	163	23	186

Accuracy

99.8%

Counts

186 → 23

Alt Table

Click to see full alt table

Status	Accuracy	Program
	63.4%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
	47.1%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.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) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)) (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 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)))))))
	91.9%	(+.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 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (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) (cos.f64 phi1)) (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))))))))))
	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 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
	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 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	94.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (fma.f64 (sin.f64 delta) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
	82.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (fma.f64 (cos.f64 delta) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))))))))
▶	88.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
	51.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) phi1) (sin.f64 (asin.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	90.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	85.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta)))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta)))) (.f64 phi1 (fma.f64 (cos.f64 delta) phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))))
▶	76.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #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) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))) (cos.f64 delta))))
	84.3%	(+.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)))))))))
	31.4%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
▶	70.2%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) lambda1)

Compiler

Compiled 1 704 to 1 234 computations (27.6% saved)

series95.0ms (0.5%)

Memory

-22.6MiB live, 70.8MiB allocated; 9ms collecting garbage

Counts

49 → 340

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite3.6s (17.8%)

Memory

49.0MiB live, 1 730.5MiB allocated; 341ms collecting garbage

Counts

389 → 390

Calls

Call 1

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

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

eval124.0ms (0.6%)

Memory: 38.0MiB live, 81.6MiB allocated; 25ms collecting garbage
Compiler: Compiled 17 563 to 3 588 computations (79.6% saved)

prune64.0ms (0.3%)

Memory

-2.4MiB live, 43.5MiB allocated; 4ms collecting garbage

Pruning

46 alts after pruning (44 fresh and 2 done)

	Pruned	Kept	Total
New	498	32	530
Fresh	6	12	18
Picked	3	2	5
Done	0	0	0
Total	507	46	553

Accuracy

99.8%

Counts

553 → 46

Alt Table

Click to see full alt table

Status	Accuracy	Program
	63.4%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
	47.1%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	94.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) #s(approx ( (sin delta) (cos theta)) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) #s(approx (* (sin delta) (cos theta)) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) #s(approx (* (sin delta) (cos theta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
	90.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 #s(approx (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(approx (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.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) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)) (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 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)))))))
	91.9%	(+.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 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (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) (cos.f64 phi1)) (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))))))))))
	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 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
	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 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	94.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	82.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (fma.f64 (cos.f64 delta) phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))))))))
✓	88.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
	88.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) #s(approx (* (sin delta) (cos theta)) (sin.f64 delta)))))))
	90.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta)))) (.f64 phi1 (fma.f64 (cos.f64 delta) phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))))
	74.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) (.f64 #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)) (cos.f64 theta)))))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) #s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
	79.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
▶	77.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #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) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	71.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (cos.f64 theta)))))))))
	74.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (*.f64 #s(approx (sin delta) delta) (cos.f64 theta)))))))
	75.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
	87.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
	73.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	66.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta)))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	31.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64)))) (+.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)))))))))
	31.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (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))))))))
	31.4%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	82.6%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) #s(approx ( (sin phi1) (cos delta)) (*.f64 phi1 (cos.f64 delta))))))) lambda1) #s(literal 1 binary64)) lambda1))
	91.5%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)) lambda1))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1) #s(literal 1 binary64)) lambda1))
	77.5%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(approx (sin phi1) phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
	90.8%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1) #s(literal 1 binary64)) lambda1))
	79.2%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1) #s(literal 1 binary64)) lambda1))
	88.8%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))))) (cos.f64 delta))) lambda1) #s(literal 1 binary64)) lambda1))
	79.0%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
▶	87.3%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
	77.1%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 #s(approx (sin delta) delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 #s(approx (sin delta) delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
	87.9%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
✓	70.2%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) lambda1)

Compiler

Compiled 4 067 to 2 976 computations (26.8% saved)

series79.0ms (0.4%)

Memory

-0.2MiB live, 51.0MiB allocated; 9ms collecting garbage

Counts

58 → 383

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite4.4s (21.8%)

Memory

-26.4MiB live, 448.4MiB allocated; 52ms collecting garbage

Counts

441 → 444

Calls

Call 1

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

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

eval87.0ms (0.4%)

Memory: 18.1MiB live, 61.9MiB allocated; 6ms collecting garbage
Compiler: Compiled 16 260 to 3 883 computations (76.1% saved)

prune71.0ms (0.4%)

Memory

-6.6MiB live, 44.4MiB allocated; 5ms collecting garbage

Pruning

55 alts after pruning (50 fresh and 5 done)

	Pruned	Kept	Total
New	554	24	578
Fresh	13	26	39
Picked	2	3	5
Done	0	2	2
Total	569	55	624

Accuracy

99.8%

Counts

624 → 55

Alt Table

Click to see full alt table

Status	Accuracy	Program
	63.4%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
	47.1%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	94.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) #s(approx ( (sin delta) (cos theta)) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) #s(approx (* (sin delta) (cos theta)) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) #s(approx (* (sin delta) (cos theta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
	90.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 #s(approx (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(approx (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.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) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)) (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 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)))))))
	90.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 (sin.f64 phi1) (cos.f64 delta) #s(approx ( (* (sin delta) (cos phi1)) (cos theta)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	94.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) #s(approx ( (* (sin delta) (cos phi1)) (cos theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	91.9%	(+.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 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (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) (cos.f64 phi1)) (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))))))))))
	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 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
	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 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
▶	82.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
✓	88.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
	88.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) #s(approx (* (sin delta) (cos theta)) (sin.f64 delta)))))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) phi1) (fma.f64 #s(approx (sin phi1) phi1) (cos.f64 delta) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)))))))
	90.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 phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	77.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 phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta)))) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))))
	74.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) (.f64 #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)) (cos.f64 theta)))))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) #s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
	79.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	77.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #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) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 delta #s(literal 2 binary64))))))))
	77.7%	(+.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) (pow.f64 phi1 #s(literal 2 binary64)))))) #s(approx (/ (- ( (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	71.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (cos.f64 theta)))))))))
	71.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 delta #s(literal 2 binary64))))))) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 #s(approx (sin delta) delta) (cos.f64 phi1)) (cos.f64 theta)))))))
	73.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) #s(approx (sin delta) delta)))))))
	74.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	76.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	87.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
	73.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
▶	87.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- ( (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
▶	69.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta)))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	31.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64)))) (+.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)))))))))
▶	31.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (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))))))))
	31.4%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	82.6%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) #s(approx ( (sin phi1) (cos delta)) (*.f64 phi1 (cos.f64 delta))))))) lambda1) #s(literal 1 binary64)) lambda1))
	91.5%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)) lambda1))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1) #s(literal 1 binary64)) lambda1))
	79.2%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1) #s(literal 1 binary64)) lambda1))
	88.8%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))))) (cos.f64 delta))) lambda1) #s(literal 1 binary64)) lambda1))
	87.2%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (sin delta) (cos theta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
	87.8%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) lambda1) #s(literal 1 binary64)) lambda1))
	75.9%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1) #s(literal 1 binary64)) lambda1))
	84.3%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))))) (+.f64 (cos.f64 delta) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1) #s(literal 1 binary64)) lambda1))
	72.6%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 delta #s(literal 2 binary64)))))) #s(approx (cos phi1) #s(literal 1 binary64))) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 delta #s(literal 2 binary64)))))) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
	74.5%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 #s(approx (sin delta) delta) #s(approx (cos phi1) #s(literal 1 binary64))) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (sin delta) delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
	87.3%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
✓	70.2%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) lambda1)

Compiler

Compiled 4 892 to 3 465 computations (29.2% saved)

series75.0ms (0.4%)

Memory

-2.8MiB live, 44.0MiB allocated; 2ms collecting garbage

Counts

49 → 356

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite3.8s (18.9%)

Memory

-10.5MiB live, 379.0MiB allocated; 195ms collecting garbage

Counts

405 → 408

Calls

Call 1

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

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

eval73.0ms (0.4%)

Memory: 6.9MiB live, 50.8MiB allocated; 6ms collecting garbage
Compiler: Compiled 12 909 to 3 053 computations (76.3% saved)

prune86.0ms (0.4%)

Memory

10.4MiB live, 58.2MiB allocated; 1ms collecting garbage

Pruning

63 alts after pruning (56 fresh and 7 done)

	Pruned	Kept	Total
New	477	25	502
Fresh	14	31	45
Picked	2	3	5
Done	1	4	5
Total	494	63	557

Accuracy

99.8%

Counts

557 → 63

Alt Table

Click to see full alt table

Status	Accuracy	Program
	63.4%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
	47.1%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	94.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) #s(approx ( (sin delta) (cos theta)) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) #s(approx (* (sin delta) (cos theta)) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) #s(approx (* (sin delta) (cos theta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
	90.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 #s(approx (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(approx (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (.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) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)) (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 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)))))))
	91.9%	(+.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 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (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) (cos.f64 phi1)) (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))))))))))
	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 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	81.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))) #s(approx (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))) phi1))))))
	88.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) #s(approx (* (sin delta) (cos theta)) (sin.f64 delta)))))))
	94.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (* (sin delta) (cos phi1)) (cos theta)) (sin phi1))) (fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))
	79.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	77.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #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) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 delta #s(literal 2 binary64))))))))
	77.2%	(+.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) (pow.f64 phi1 #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	71.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta)) (cos.f64 theta)))))))))
	73.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) #s(approx (sin delta) delta)))))))
	74.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	76.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	87.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
	73.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (cos delta) #s(literal 1 binary64))) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	84.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- ( (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+.f64 (cos.f64 delta) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
✓	87.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- ( (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	77.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- ( (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 delta #s(literal 2 binary64))))))))
	75.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 theta #s(literal 2 binary64)))))))) #s(approx (/ (- ( (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	75.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- ( (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	71.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 delta #s(literal 2 binary64)))))) (sin.f64 theta))) #s(approx (/ (- ( (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	74.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (/ (- ( (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (cos.f64 delta))))
	69.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta)))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)))))))
	68.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta)))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64)))))) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	69.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta)))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	79.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.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))))))))
	65.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (cos.f64 phi1) #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 delta #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (pow.f64 delta #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 (cos.f64 theta) #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 delta #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (pow.f64 delta #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))))))
	66.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (cos.f64 phi1) #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 delta #s(literal 2 binary64))))))))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 (cos.f64 theta) #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 delta #s(literal 2 binary64))))))))))))
	31.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (* (cos delta) (cos delta)) (* (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64)))) (+.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)))))))))
✓	31.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (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))))))))
	26.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (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) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))))))
	23.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (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) #s(approx ( (cos phi1) (* (cos theta) (sin delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	31.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))))
	19.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) phi1) (fma.f64 (cos.f64 delta) #s(approx (sin phi1) phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	24.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	19.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))))
	12.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	21.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (cos.f64 delta))))
	12.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 #s(approx (sin delta) 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) #s(approx (sin delta) delta))))))))
	20.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))))))) (atan2.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	31.4%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	82.6%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) #s(approx ( (sin phi1) (cos delta)) (*.f64 phi1 (cos.f64 delta))))))) lambda1) #s(literal 1 binary64)) lambda1))
	91.5%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)) lambda1))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1) #s(literal 1 binary64)) lambda1))
	79.2%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1) #s(literal 1 binary64)) lambda1))
	88.8%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))))) (cos.f64 delta))) lambda1) #s(literal 1 binary64)) lambda1))
	87.2%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (sin delta) (cos theta)) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
	87.8%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) lambda1) #s(literal 1 binary64)) lambda1))
	75.9%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) #s(approx (cos phi1) #s(literal 1 binary64))) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (sin phi1) (cos delta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1) #s(literal 1 binary64)) lambda1))
	74.5%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 #s(approx (sin delta) delta) #s(approx (cos phi1) #s(literal 1 binary64))) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 #s(approx (sin delta) delta) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1) #s(literal 1 binary64)) lambda1))
✓	70.2%	#s(approx (+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (* (cos phi1) (cos theta)) (sin delta))))))) lambda1)

Compiler

Compiled 5 357 to 2 930 computations (45.3% saved)

regimes188.0ms (0.9%)

Memory

-21.7MiB live, 76.0MiB allocated; 6ms collecting garbage

Counts

105 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

30.0ms	phi2
25.0ms	theta
25.0ms	delta
25.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

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)

regimes169.0ms (0.8%)

Memory

24.4MiB live, 70.6MiB allocated; 2ms collecting garbage

Counts

97 → 1

Calls

Call 1

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

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

Outputs

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

Calls

7 calls:

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

regimes153.0ms (0.8%)

Memory

18.4MiB live, 65.4MiB allocated; 1ms collecting garbage

Counts

88 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes144.0ms (0.7%)

Memory

-37.0MiB live, 61.4MiB allocated; 2ms collecting garbage

Counts

82 → 1

Calls

Call 1

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

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

Calls

7 calls:

21.0ms	phi2
20.0ms	theta
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	delta
19.0ms	phi1

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes125.0ms (0.6%)

Memory

8.2MiB live, 55.4MiB allocated; 1ms collecting garbage

Counts

72 → 3

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes16.0ms (0.1%)

Memory

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

Counts

53 → 1

Calls

Call 1

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

Calls

1 calls:

13.0ms

theta

Results

Accuracy	Segments	Branch
90.8%	1	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes60.0ms (0.3%)

Memory

-16.3MiB live, 31.3MiB allocated; 0ms collecting garbage

Counts

32 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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)))))))))
8.0ms	theta
8.0ms	phi1
8.0ms	phi2
8.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)

regimes32.0ms (0.2%)

Memory

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

Counts

15 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes17.0ms (0.1%)

Memory

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

Counts

6 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
77.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))))))))`
77.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)))))))))`
79.9%	2	`lambda1`
77.4%	1	`phi2`
81.8%	3	`delta`
82.0%	3	`theta`
77.4%	1	`phi1`

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes2.0ms (0%)

Memory

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

Counts

4 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

2.0ms

theta

Results

Accuracy	Segments	Branch
81.9%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes4.0ms (0%)

Memory

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

Counts

3 → 3

Calls

Call 1

Inputs

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

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

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

Outputs

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

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

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

Calls

2 calls:

2.0ms	theta
2.0ms	delta

Results

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

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes11.0ms (0.1%)

Memory

-37.6MiB live, 10.6MiB allocated; 2ms collecting garbage

Counts

2 → 2

Calls

Call 1

Inputs

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

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

Outputs

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

regimes8.0ms (0%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 70 computations (-27.3% saved)

bsearch39.0ms (0.2%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	predicate-same
1×	narrow-enough

Steps

Time	Left	Right
15.0ms	1.0699999382840515e-47	1.159661265730944e-42
20.0ms	-0.004236045410284838	-0.0012311034450657053

Samples

28.0ms

144×

valid

Compiler

Compiled 762 to 667 computations (12.5% saved)

Precisions

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

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

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

ival-mult!: 3.0ms (12.7% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch84.0ms (0.4%)

Memory

-23.1MiB live, 24.1MiB allocated; 2ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
41.0ms	4.5313344978057975e-126	6.945636755293029e-109
37.0ms	-4.323794454098593e+42	-3.344428451509999e+39

Samples

64.0ms

288×

valid

Compiler

Compiled 2 394 to 1 417 computations (40.8% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch72.0ms (0.4%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	predicate-same

Steps

Time	Left	Right
51.0ms	457600.94413712574	3.4359213783566265e+38
15.0ms	-2.3529499441487283e-11	-1.124712305064948e-16

Samples

55.0ms

240×

valid

Compiler

Compiled 1 896 to 1 081 computations (43% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch36.0ms (0.2%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	457600.94413712574	3.4359213783566265e+38
32.0ms	-1.37340591819348e+46	-5.660007429111174e+44

Samples

27.0ms

112×

valid

Compiler

Compiled 2 160 to 1 183 computations (45.2% saved)

Precisions

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

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

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

ival-mult!: 3.0ms (13% of total)

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

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

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

adjust: 0.0ms (0% of total)

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

bsearch39.0ms (0.2%)

Memory

-36.0MiB live, 10.7MiB allocated; 3ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
36.0ms	7.694646428936505e-213	4.353622052805295e-208

Samples

30.0ms

128×

valid

Compiler

Compiled 708 to 471 computations (33.5% saved)

Precisions

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

ival-sin: 10.0ms (42.6% of total)

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

derivations4.0ms (0%)

Memory

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

Stop Event

1×

fuel

Compiler

Compiled 383 to 174 computations (54.6% saved)

preprocess121.0ms (0.6%)

Memory: 22.9MiB live, 121.2MiB allocated; 14ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 1 877 to 1 189 computations (36.7% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.1s (5.6%)

sample2.4s (11.9%)

preprocess54.0ms (0.3%)

series40.0ms (0.2%)

rewrite2.6s (12.8%)

eval29.0ms (0.1%)

prune23.0ms (0.1%)

series95.0ms (0.5%)

rewrite3.6s (17.8%)

eval124.0ms (0.6%)

prune64.0ms (0.3%)

series79.0ms (0.4%)

rewrite4.4s (21.8%)

eval87.0ms (0.4%)

prune71.0ms (0.4%)

series75.0ms (0.4%)

rewrite3.8s (18.9%)

eval73.0ms (0.4%)

prune86.0ms (0.4%)

regimes188.0ms (0.9%)

regimes169.0ms (0.8%)

regimes153.0ms (0.8%)

regimes144.0ms (0.7%)

regimes125.0ms (0.6%)

regimes16.0ms (0.1%)

regimes60.0ms (0.3%)

regimes32.0ms (0.2%)

regimes17.0ms (0.1%)

regimes2.0ms (0%)

regimes4.0ms (0%)

regimes11.0ms (0.1%)

regimes8.0ms (0%)

bsearch39.0ms (0.2%)

bsearch84.0ms (0.4%)

bsearch72.0ms (0.4%)

bsearch36.0ms (0.2%)

bsearch39.0ms (0.2%)

derivations4.0ms (0%)

preprocess121.0ms (0.6%)

end0.0ms (0%)

Profiling