Metrics for Destination given bearing on a great circle

start0.0ms (0.0%)

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

analyze1.6s (17.4%)

Memory

28.4MiB live, 2 879.9MiB allocated; 515ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 35 to 25 computations (28.6% saved)

sample3.5s (37.7%)

Memory

79.7MiB live, 8 476.0MiB allocated; 1.1s collecting garbage

Samples

2.8s

8 256×

valid

Precisions

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

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

ival-cos: 801.0ms (33.4% of total)

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

ival-asin: 170.0ms (7.1% of total)

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

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

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

adjust: 2.0ms (0.1% of total)

Bogosity

preprocess41.0ms (0.5%)

Memory

7.3MiB live, 98.0MiB allocated; 9ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	179	668
1	786	659

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Status

Accuracy

Program

▶

99.8%

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

Symmetry

(abs phi2)

Compiler

Compiled 66 to 46 computations (30.3% saved)

sample0.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs

Outputs

series99.0ms (1.1%)

Memory

17.5MiB live, 305.9MiB allocated; 47ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	591	3651

Stop Event

1×	iter-limit

Counts

22 → 119

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable	Point
17.0ms	phi1	-inf
8.0ms	theta	0
6.0ms	delta	inf
4.0ms	phi1	inf
4.0ms	theta	inf

rewrite163.0ms (1.8%)

Memory

-15.7MiB live, 365.3MiB allocated; 28ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	22	197
0	40	187
1	157	187
2	824	187
0	4272	187

Stop Event

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

Counts

22 → 261

Calls

Call 1

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

Outputs
lambda1
theta
(sin.f64 theta)
delta
(sin.f64 delta)
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(/.f64 (-.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64))) (+.f64 (.f64 (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (neg.f64 (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64)))
phi1
(sin.f64 (+.f64 (neg.f64 (neg.f64 phi1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 phi1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(-.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 phi1))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 phi1))))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 phi1))
(cos.f64 (fabs.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (neg.f64 (sin.f64 phi1)) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (fabs.f64 phi1)) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi1)) (.f64 #s(literal 0 binary64) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))) #s(literal -2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(sin.f64 (+.f64 (neg.f64 (neg.f64 delta)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 delta)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 delta) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 delta) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) delta))
(-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 delta))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 delta))))
(cos.f64 (neg.f64 (neg.f64 delta)))
(cos.f64 (neg.f64 (fabs.f64 delta)))
(cos.f64 (neg.f64 delta))
(cos.f64 (fabs.f64 delta))
(cos.f64 delta)
(+.f64 (.f64 (neg.f64 (sin.f64 delta)) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (fabs.f64 delta)) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 delta)) (.f64 #s(literal 0 binary64) (sin.f64 delta)))
(+.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))
(sin.f64 phi1)
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 (-.f64 phi1 delta))) #s(literal 1/2 binary64))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(/.f64 (+.f64 (.f64 (sin.f64 (-.f64 phi1 delta)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi1 delta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (neg.f64 (+.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 (-.f64 phi1 delta))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) delta))) (cos.f64 (+.f64 phi1 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) delta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 phi1 (fabs.f64 delta))) (sin.f64 (+.f64 phi1 (fabs.f64 delta))))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 (neg.f64 delta) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 (neg.f64 delta) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 (fabs.f64 delta) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 (fabs.f64 delta) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 delta) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 (neg.f64 delta) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (fabs.f64 delta) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 (fabs.f64 delta) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 (neg.f64 (neg.f64 delta)))) (sin.f64 (+.f64 phi1 (neg.f64 (neg.f64 delta))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 (neg.f64 (fabs.f64 delta)))) (sin.f64 (+.f64 phi1 (neg.f64 (fabs.f64 delta))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 (-.f64 phi1 delta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) delta))) (cos.f64 (+.f64 phi1 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) delta)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 (fabs.f64 delta))) (sin.f64 (+.f64 phi1 (fabs.f64 delta)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 (-.f64 phi1 delta)))))
(/.f64 (+.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 (-.f64 phi1 delta))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) delta))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) delta))) #s(literal 2 binary64)))
(-.f64 (/.f64 (sin.f64 (-.f64 phi1 delta)) #s(literal 2 binary64)) (/.f64 (neg.f64 (sin.f64 (+.f64 phi1 delta))) #s(literal 2 binary64)))
(+.f64 (/.f64 (sin.f64 (-.f64 phi1 (fabs.f64 delta))) #s(literal 2 binary64)) (/.f64 (sin.f64 (+.f64 phi1 (fabs.f64 delta))) #s(literal 2 binary64)))
(+.f64 (/.f64 (sin.f64 (+.f64 phi1 delta)) #s(literal 2 binary64)) (/.f64 (sin.f64 (-.f64 phi1 delta)) #s(literal 2 binary64)))
(+.f64 (/.f64 (sin.f64 (-.f64 phi1 delta)) #s(literal 2 binary64)) (/.f64 (sin.f64 (+.f64 phi1 delta)) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(*.f64 (sin.f64 delta) (cos.f64 phi1))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) delta)) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) delta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 delta (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 delta (neg.f64 phi1))) (sin.f64 (+.f64 delta (neg.f64 phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 delta (fabs.f64 phi1))) (sin.f64 (+.f64 delta (fabs.f64 phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) delta)) (cos.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) delta)) (cos.f64 (+.f64 (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 delta (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 delta (+.f64 (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 delta (neg.f64 (neg.f64 phi1)))) (sin.f64 (+.f64 delta (neg.f64 (neg.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 delta (neg.f64 (fabs.f64 phi1)))) (sin.f64 (+.f64 delta (neg.f64 (fabs.f64 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) delta)) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 delta (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 delta (neg.f64 phi1))) (sin.f64 (+.f64 delta (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 delta (fabs.f64 phi1))) (sin.f64 (+.f64 delta (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) delta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 delta (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)))
(+.f64 (/.f64 (sin.f64 (-.f64 delta (neg.f64 phi1))) #s(literal 2 binary64)) (/.f64 (sin.f64 (+.f64 delta (neg.f64 phi1))) #s(literal 2 binary64)))
(+.f64 (/.f64 (sin.f64 (-.f64 delta (fabs.f64 phi1))) #s(literal 2 binary64)) (/.f64 (sin.f64 (+.f64 delta (fabs.f64 phi1))) #s(literal 2 binary64)))
(+.f64 (/.f64 (sin.f64 (-.f64 delta phi1)) #s(literal 2 binary64)) (/.f64 (sin.f64 (+.f64 phi1 delta)) #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 (neg.f64 theta)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 theta)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 theta) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 theta) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) theta))
(-.f64 (.f64 (sin.f64 theta) #s(literal 0 binary64)) (.f64 (cos.f64 theta) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 theta))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 theta))))
(cos.f64 (neg.f64 (neg.f64 theta)))
(cos.f64 (neg.f64 (fabs.f64 theta)))
(cos.f64 (neg.f64 theta))
(cos.f64 (fabs.f64 theta))
(cos.f64 theta)
(+.f64 (.f64 (sin.f64 (neg.f64 theta)) #s(literal 0 binary64)) (.f64 (cos.f64 theta) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (fabs.f64 theta)) #s(literal 0 binary64)) (.f64 (cos.f64 theta) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 theta)) (.f64 #s(literal 0 binary64) (sin.f64 theta)))
(+.f64 (.f64 (sin.f64 theta) #s(literal 0 binary64)) (.f64 (cos.f64 theta) #s(literal 1 binary64)))
(.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (+.f64 (.f64 (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (.f64 (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(/.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 (-.f64 phi1 delta))))) #s(literal -2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 (-.f64 phi1 delta)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (-.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(neg.f64 (sin.f64 (-.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(sin.f64 (+.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(-.f64 (.f64 (sin.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 0 binary64)) (.f64 (cos.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 1 binary64)))
(-.f64 (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(-.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(-.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)))
(-.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(cos.f64 (fabs.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(cos.f64 (neg.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(cos.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(+.f64 (/.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(+.f64 (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(+.f64 (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (*.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (neg.f64 (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))
(asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (-.f64 (pow.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) #s(literal 3 binary64)) (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 (.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(neg.f64 (asin.f64 (-.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(neg.f64 (-.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (.f64 (PI.f64) #s(literal 1/2 binary64)))
(-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (+.f64 (.f64 (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (.f64 (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(/.f64 (neg.f64 (+.f64 (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 (-.f64 phi1 delta))))) #s(literal -2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 delta)) (sin.f64 (-.f64 phi1 delta)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (-.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (+.f64 (.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(neg.f64 (sin.f64 (-.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(sin.f64 (+.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(-.f64 (.f64 (sin.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 0 binary64)) (.f64 (cos.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 1 binary64)))
(-.f64 (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(-.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(-.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (neg.f64 (cos.f64 delta)) (sin.f64 phi1)))
(-.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(cos.f64 (fabs.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(cos.f64 (neg.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(cos.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(+.f64 (/.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(+.f64 (.f64 #s(literal 0 binary64) (sin.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(+.f64 (.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 #s(literal 0 binary64) (sin.f64 (neg.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (*.f64 (neg.f64 (sin.f64 delta)) (cos.f64 phi1))) (cos.f64 theta)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (neg.f64 (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1))) #s(literal 1/2 binary64))
(.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (-.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (/.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64))) (+.f64 (.f64 (/.f64 (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64))) (.f64 (/.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1))) #s(literal 2 binary64))
(-.f64 (/.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64)))
(+.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (sin.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(+.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (sin.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(+.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))
(+.f64 (/.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) #s(literal 2 binary64)) (/.f64 (neg.f64 (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (cos.f64 delta))) (cos.f64 delta))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (cos.f64 delta))) (cos.f64 delta))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (+.f64 (.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (.f64 (cos.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (+.f64 (.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (neg.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (.f64 (cos.f64 delta) (neg.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))))
(/.f64 (neg.f64 (-.f64 (.f64 (cos.f64 delta) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1))))) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 delta) #s(literal 2 binary64)) (-.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)) (cos.f64 (+.f64 (asin.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (-.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (-.f64 (.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (+.f64 (.f64 (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(neg.f64 (-.f64 (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (cos.f64 delta)))
(-.f64 (/.f64 (.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (neg.f64 (sin.f64 phi1))) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(-.f64 (cos.f64 delta) (neg.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
(-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
(+.f64 (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (cos.f64 delta))
(+.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) lambda1)) lambda1)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)) lambda1)
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) (+.f64 (.f64 (neg.f64 lambda1) (neg.f64 lambda1)) (.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (neg.f64 lambda1)))))
(/.f64 (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (neg.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) (neg.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))) (+.f64 lambda1 (neg.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (+.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (neg.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (neg.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) (neg.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))) (.f64 lambda1 (neg.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) (.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))))
(neg.f64 (-.f64 (neg.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) lambda1))
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (neg.f64 lambda1))
(-.f64 lambda1 (neg.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
(+.f64 lambda1 (neg.f64 (neg.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))

eval85.0ms (0.9%)

Memory: -13.5MiB live, 277.2MiB allocated; 37ms collecting garbage
Compiler: Compiled 16 727 to 3 037 computations (81.8% saved)

prune38.0ms (0.4%)

Memory

9.9MiB live, 109.6MiB allocated; 6ms collecting garbage

Pruning

20 alts after pruning (20 fresh and 0 done)

	Pruned	Kept	Total
New	307	20	327
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	308	20	328

Accuracy

99.9%

Counts

328 → 20

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.8%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (+.f64 (.f64 (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (/.f64 (-.f64 (pow.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) #s(literal 3 binary64)) (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))))))
	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 1/2 binary64)) (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
	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 (sin.f64 (+.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))
▶	49.9%	(+.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 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+.f64 (.f64 phi1 (cos.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))
	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	90.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+.f64 (.f64 delta (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	95.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
▶	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (+.f64 (.f64 phi1 (cos.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	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) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta)))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (cos.f64 delta))) (cos.f64 delta))))
	84.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.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))))))
	84.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	88.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.8%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)) lambda1)
	27.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (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))))))))

Compiler

Compiled 1 968 to 1 186 computations (39.7% saved)

sample0.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs
1

Outputs
#s(literal 1 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 3 to 3 computations (0.0% saved)

Precisions

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

adjust: 0.0ms (0.0% of total)

series175.0ms (1.9%)

Memory

47.9MiB live, 503.9MiB allocated; 64ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	918	6593

Stop Event

1×	iter-limit

Counts

46 → 182

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable	Point
20.0ms	theta	inf
16.0ms	delta	inf
11.0ms	delta	-inf
10.0ms	phi1	0
9.0ms	theta	-inf

rewrite233.0ms (2.5%)

Memory

15.0MiB live, 576.2MiB allocated; 124ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	59	819
0	96	780
1	456	780
2	1909	780
0	4110	780

Stop Event

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

Counts

46 → 400

Calls

Call 1

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

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

eval179.0ms (1.9%)

Memory: -24.4MiB live, 405.0MiB allocated; 143ms collecting garbage
Compiler: Compiled 48 093 to 5 543 computations (88.5% saved)

prune68.0ms (0.7%)

Memory

9.8MiB live, 195.4MiB allocated; 21ms collecting garbage

Pruning

37 alts after pruning (35 fresh and 2 done)

	Pruned	Kept	Total
New	832	31	863
Fresh	11	4	15
Picked	5	0	5
Done	-2	2	0
Total	846	37	883

Accuracy

99.9%

Counts

883 → 37

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.8%	(+.f64 (atan2.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
▶	81.5%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) phi1))) (sin.f64 phi1)))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (+.f64 (.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (sin.f64 phi1))) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (sin.f64 phi1))))))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (sin.f64 phi1))))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))))) lambda1)
	81.6%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(approx ( (sin phi1) (cos delta)) (*.f64 phi1 (cos.f64 delta)))) (sin.f64 phi1)))) lambda1)
	92.5%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	95.0%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1)
	90.5%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))) (sin.f64 phi1)))) lambda1)
	93.4%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
	85.2%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.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))))) (cos.f64 delta))) lambda1)
	84.7%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
	79.2%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 theta (sin.f64 delta)))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	87.0%	(+.f64 (atan2.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	87.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	87.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (/.f64 (-.f64 (pow.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) #s(literal 3 binary64)) (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))))))
	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 1/2 binary64)) (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
	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 (sin.f64 (+.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))
✓	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (+.f64 (.f64 phi1 (cos.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	78.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(approx (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (cos.f64 delta))) (cos.f64 delta))))
	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta))) (cos.f64 delta))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) delta)))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (neg.f64 delta) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))
✓	88.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
▶	78.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #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 delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	79.4%	(+.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) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (+.f64 (.f64 phi1 (cos.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
▶	87.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	76.8%	(+.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) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
▶	99.8%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))) (sin.f64 phi1)))) lambda1)) lambda1)
	78.5%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (+.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) phi1)) phi1)))) lambda1)) lambda1)
	27.9%	#s(approx (+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) (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))))))))

Compiler

Compiled 3 274 to 2 097 computations (35.9% saved)

sample1.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs
(PI)
1/2
(* (PI) 1/2)
(cos (* (PI) 1/2))
(sin (* (PI) 1/2))
1
2
1/24

Outputs
#s(literal 884279719003555/281474976710656 binary64)
#s(literal 1/2 binary64)
#s(literal 884279719003555/562949953421312 binary64)
#s(literal 0 binary64)
#s(literal 1 binary64)
#s(literal 1 binary64)
#s(literal 2 binary64)
#s(literal 6004799503160661/144115188075855872 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 18 to 10 computations (44.4% saved)

Precisions

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

adjust: 0.0ms (0.0% of total)

series220.0ms (2.4%)

Memory

37.4MiB live, 487.9MiB allocated; 154ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1151	10368

Stop Event

1×	iter-limit

Counts

64 → 236

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable	Point
19.0ms	theta	-inf
16.0ms	delta	-inf
12.0ms	theta	0
12.0ms	phi1	inf
10.0ms	phi1	0

rewrite298.0ms (3.2%)

Memory

11.1MiB live, 628.0MiB allocated; 86ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	77	1011
0	131	934
1	579	854
2	2566	854
0	4227	854

Stop Event

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

Counts

64 → 594

Calls

Call 1

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

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

eval195.0ms (2.1%)

Memory: -30.4MiB live, 411.1MiB allocated; 87ms collecting garbage
Compiler: Compiled 58 303 to 6 577 computations (88.7% saved)

prune73.0ms (0.8%)

Memory

8.4MiB live, 287.8MiB allocated; 19ms collecting garbage

Pruning

47 alts after pruning (44 fresh and 3 done)

	Pruned	Kept	Total
New	839	24	863
Fresh	10	20	30
Picked	5	0	5
Done	-1	3	2
Total	853	47	900

Accuracy

99.9%

Counts

900 → 47

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.7%	(+.f64 (atan2.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	99.7%	(+.f64 (atan2.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)))))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)))))) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)))))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)))))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	84.7%	(+.f64 (atan2.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (+ (* (cos theta) (* (+ (* (sin phi1) (cos (* (PI) 1/2))) (* (cos phi1) (sin (* (PI) 1/2)))) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
✓	81.5%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) phi1))) (sin.f64 phi1)))) lambda1)
	95.0%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1)
	90.5%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #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))))) (sin.f64 phi1)))) lambda1)
▶	87.9%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(approx (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1)
▶	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))))) lambda1)
	81.6%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(approx ( (sin phi1) (cos delta)) (*.f64 phi1 (cos.f64 delta)))) (sin.f64 phi1)))) lambda1)
	92.5%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	93.4%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.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))))) (cos.f64 delta))) lambda1)
	84.7%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
	79.2%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 theta (sin.f64 delta)))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	78.9%	(+.f64 (atan2.f64 (.f64 #s(approx (cos phi1) (-.f64 (.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) phi1) phi1) #s(literal -1 binary64))) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1)
	87.0%	(+.f64 (atan2.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	83.6%	(+.f64 (atan2.f64 #s(approx (* (+ (* (sin phi1) (cos (* (PI) 1/2))) (* (cos phi1) (sin (* (PI) 1/2)))) (* (sin delta) (sin theta))) (.f64 delta (.f64 (sin.f64 theta) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	77.2%	(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(approx (cos phi1) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	87.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	87.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
	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 (sin.f64 (+.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))
✓	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (+.f64 (.f64 phi1 (cos.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (cos.f64 delta))) (cos.f64 delta))))
	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta))) (cos.f64 delta))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) delta)))))
✓	88.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	70.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #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 delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (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))))))))
	79.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) #s(approx (- ( 1/24 (pow phi1 2)) 1/2) #s(literal -1/2 binary64)))))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (+.f64 (.f64 phi1 (cos.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	84.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	79.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) delta)))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (neg.f64 delta) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
	76.4%	(+.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))))))) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	87.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	77.4%	(+.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))))))) (cos.f64 delta))))
	78.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.7%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (sin.f64 delta) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))))) (cos.f64 theta))) (sin.f64 phi1)))) lambda1)) lambda1)
▶	92.5%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)))) lambda1)) lambda1)
	78.5%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (+.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) phi1)) phi1)))) lambda1)) lambda1)
▶	78.8%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 #s(approx (cos phi1) (-.f64 (.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) phi1) phi1) #s(literal -1 binary64))) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1)) lambda1)
	87.5%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1)) lambda1)
▶	74.0%	(.f64 #s(approx (+ 1 (/ (atan2 ( (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))) (sin phi1)))) lambda1)) #s(literal 1 binary64)) lambda1)
	27.9%	#s(approx (+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) (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))))))))

Compiler

Compiled 4 634 to 2 875 computations (38.0% saved)

sample0.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs
1
1/24
1/2
-1

Outputs
#s(literal 1 binary64)
#s(literal 6004799503160661/144115188075855872 binary64)
#s(literal 1/2 binary64)
#s(literal -1 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 6 to 6 computations (0.0% saved)

Precisions

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

adjust: 0.0ms (0.0% of total)

series116.0ms (1.3%)

Memory

12.4MiB live, 257.0MiB allocated; 28ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	759	4669

Stop Event

1×	iter-limit

Counts

57 → 160

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable	Point
14.0ms	phi1	-inf
9.0ms	phi1	inf
6.0ms	delta	-inf
4.0ms	theta	inf
4.0ms	delta	inf

rewrite215.0ms (2.3%)

Memory

4.2MiB live, 575.2MiB allocated; 55ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	84	998
0	136	980
1	604	980
2	2316	980
0	4079	980

Stop Event

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

Counts

57 → 434

Calls

Call 1

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

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

eval198.0ms (2.2%)

Memory: -23.7MiB live, 451.3MiB allocated; 134ms collecting garbage
Compiler: Compiled 40 629 to 5 077 computations (87.5% saved)

prune140.0ms (1.5%)

Memory

-28.1MiB live, 252.2MiB allocated; 46ms collecting garbage

Pruning

58 alts after pruning (51 fresh and 7 done)

	Pruned	Kept	Total
New	698	18	716
Fresh	6	33	39
Picked	5	0	5
Done	-4	7	3
Total	705	58	763

Accuracy

99.9%

Counts

763 → 58

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.7%	(+.f64 (atan2.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	99.7%	(+.f64 (atan2.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)))))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)))))) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)))))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)))))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	84.7%	(+.f64 (atan2.f64 (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (+ (* (cos theta) (* (+ (* (sin phi1) (cos (* (PI) 1/2))) (* (cos phi1) (sin (* (PI) 1/2)))) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
	86.5%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(approx (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1)
	82.3%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (sin.f64 (+.f64 (neg.f64 delta) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 #s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(approx (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1)
✓	81.5%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) phi1))) (sin.f64 phi1)))) lambda1)
	95.0%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1)
	90.5%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #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))))) (sin.f64 phi1)))) lambda1)
	87.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(approx (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) #s(literal 2 binary64)))) (sin.f64 phi1)))) lambda1)
	87.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(approx (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) (.f64 (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) theta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1)
✓	87.9%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(approx (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1)
✓	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	81.6%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(approx ( (sin phi1) (cos delta)) (*.f64 phi1 (cos.f64 delta)))) (sin.f64 phi1)))) lambda1)
	92.5%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	93.4%	(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
	77.3%	(+.f64 (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)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(approx (+ (* (cos theta) (sin delta)) (* (cos delta) phi1)) (.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))))))))) (sin.f64 phi1)))) lambda1)
	79.6%	(+.f64 (atan2.f64 (.f64 (.f64 #s(approx (cos phi1) (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) phi1) phi1) #s(literal -1 binary64))) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))))) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.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))))) (cos.f64 delta))) lambda1)
	84.7%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) lambda1)
	79.2%	(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) #s(approx ( (sin delta) (sin theta)) (.f64 theta (sin.f64 delta)))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	87.0%	(+.f64 (atan2.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	83.6%	(+.f64 (atan2.f64 #s(approx (* (+ (* (sin phi1) (cos (* (PI) 1/2))) (* (cos phi1) (sin (* (PI) 1/2)))) (* (sin delta) (sin theta))) (.f64 delta (.f64 (sin.f64 theta) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1)
	77.2%	(+.f64 lambda1 (atan2.f64 (/.f64 (.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(approx (cos phi1) #s(literal 1 binary64))) #s(literal 2 binary64)) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	87.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	87.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (acos.f64 (neg.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta))))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
	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 (sin.f64 (+.f64 (acos.f64 (+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))))
✓	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (+.f64 (.f64 phi1 (cos.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (cos.f64 delta))) (cos.f64 delta))))
	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta))) (cos.f64 delta))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) delta)))))
✓	88.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	79.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) #s(approx (- ( 1/24 (pow phi1 2)) 1/2) #s(literal -1/2 binary64)))))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (+.f64 (.f64 phi1 (cos.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	84.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	79.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) delta)))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (sin.f64 (+.f64 (neg.f64 delta) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
	76.4%	(+.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))))))) #s(approx (cos phi1) #s(literal 1 binary64))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	87.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	77.4%	(+.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))))))) (cos.f64 delta))))
	78.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.7%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (sin.f64 delta) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 phi1)) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 phi1))))))) (cos.f64 theta))) (sin.f64 phi1)))) lambda1)) lambda1)
	92.5%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 (+.f64 (.f64 #s(approx ( (sin delta) (cos phi1)) (sin.f64 delta)) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (+.f64 (.f64 (.f64 (+.f64 (.f64 #s(approx ( (sin delta) (cos phi1)) (sin.f64 delta)) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (+.f64 (.f64 #s(approx ( (sin delta) (cos phi1)) (sin.f64 delta)) (cos.f64 theta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta)) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))) lambda1)) lambda1)
	92.3%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta)) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) theta)))) (sin.f64 phi1)))) lambda1)) lambda1)
	78.5%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (+.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) phi1)) phi1)))) lambda1)) lambda1)
	76.6%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 theta (sin.f64 delta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)))) lambda1)) lambda1)
	83.1%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 #s(approx (* (sin theta) (sin delta)) (.f64 delta (sin.f64 theta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 #s(approx (* (sin delta) (cos phi1)) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 phi1)))) lambda1)) lambda1)
✓	78.8%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 #s(approx (cos phi1) (-.f64 (.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) phi1) phi1) #s(literal -1 binary64))) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1)) lambda1)
	70.7%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 #s(approx (cos phi1) (-.f64 (.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) phi1) phi1) #s(literal -1 binary64))) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(approx (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))))))) lambda1)) lambda1)
	69.4%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 #s(approx (cos phi1) (-.f64 (.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) phi1) phi1) #s(literal -1 binary64))) #s(approx (* (sin theta) (sin delta)) (.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))) lambda1)) lambda1)
	70.8%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 #s(approx (cos phi1) (-.f64 (.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) phi1) phi1) #s(literal -1 binary64))) #s(approx (* (sin theta) (sin delta)) (.f64 delta (sin.f64 theta)))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1)) lambda1)
	79.4%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 #s(approx (cos phi1) (-.f64 (.f64 (.f64 #s(approx (- (* 1/24 (* phi1 phi1)) 1/2) #s(literal -1/2 binary64)) phi1) phi1) #s(literal -1 binary64))) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1)) lambda1)
	87.5%	(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) lambda1)) lambda1)
✓	74.0%	(.f64 #s(approx (+ 1 (/ (atan2 ( (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (* (sin delta) (cos phi1)) (cos theta))) (sin phi1)))) lambda1)) #s(literal 1 binary64)) lambda1)
	27.9%	#s(approx (+ (atan2 (* (* (sin theta) (cos phi1)) (sin delta)) (- (cos delta) (* (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin phi1)))) lambda1) (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))))))))

Compiler

Compiled 3 041 to 1 894 computations (37.7% saved)

regimes1.2s (13.1%)

Memory

46.4MiB live, 2 476.6MiB allocated; 461ms collecting garbage

Counts

1 → 1

3 → 3

16 → 1

25 → 1

29 → 3

38 → 1

54 → 1

69 → 1

94 → 1

Calls

Call 1

Inputs

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

Outputs

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

Call 2

Inputs

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

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

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

Outputs

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

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

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

Call 3

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

Outputs

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

Call 4

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

Outputs

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

Call 5

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

Outputs

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

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

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

Call 6

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

Outputs

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

Call 7

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

Outputs

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

Call 8

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

Call 9

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

Outputs

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

Calls

59 calls:

63.0ms	lambda1
61.0ms	delta
56.0ms	theta
48.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)))))))))
46.0ms	phi2

Results

Accuracy	Segments	Branch
74.0%	1	`delta`
74.0%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
74.0%	1	`phi1`
78.3%	3	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
74.0%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
78.5%	3	`phi1`
74.0%	1	`phi2`
74.0%	1	`theta`
74.0%	1	`lambda1`
75.8%	2	`delta`
87.5%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
87.5%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
87.5%	1	`lambda1`
87.5%	1	`phi1`
87.5%	1	`phi2`
87.5%	1	`delta`
87.5%	1	`theta`
88.9%	1	`lambda1`
88.9%	1	`phi2`
88.9%	1	`theta`
88.9%	1	`phi1`
88.9%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
88.9%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
88.9%	1	`delta`
92.5%	3	`phi1`
88.9%	1	`phi2`
92.9%	3	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
92.8%	3	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
88.9%	1	`lambda1`
93.3%	3	`delta`
88.9%	1	`theta`
93.4%	1	`phi1`
93.4%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
93.4%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
93.4%	1	`lambda1`
93.4%	1	`phi2`
93.4%	1	`delta`
93.4%	1	`theta`
93.4%	1	`phi2`
93.4%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
93.4%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
93.4%	1	`lambda1`
93.4%	1	`phi1`
93.4%	1	`delta`
93.4%	1	`theta`
95.0%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
95.0%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
95.0%	1	`lambda1`
95.0%	1	`phi1`
95.0%	1	`phi2`
95.0%	1	`delta`
95.0%	1	`theta`
99.8%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
99.8%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
99.8%	1	`lambda1`
99.8%	1	`phi1`
99.8%	1	`phi2`
99.8%	1	`delta`
99.8%	1	`theta`

Compiler

Compiled 5 425 to 1 293 computations (76.2% saved)

bsearch75.0ms (0.8%)

Memory

-11.2MiB live, 181.2MiB allocated; 7ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
32.0ms	2.3845554766932837e-53	6.310479870245746e-52
38.0ms	-228753.1785173741	-4.94020896754958

Samples

57.0ms

240×

valid

Compiler

Compiled 1 176 to 931 computations (20.8% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0.0% of total)

bsearch101.0ms (1.1%)

Memory

-12.6MiB live, 176.1MiB allocated; 24ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
38.0ms	6.868791476267493e+105	1.3509568997456595e+108
24.0ms	-10441766961596527000.0	-3298994742872651300.0

Samples

49.0ms

192×

valid

Compiler

Compiled 1 188 to 859 computations (27.7% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0.0% of total)

derivations93.0ms (1.0%)

Memory

48.7MiB live, 142.5MiB allocated; 5ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 534 to 112 computations (79.0% saved)

preprocess105.0ms (1.1%)

Memory: -30.5MiB live, 209.7MiB allocated; 41ms collecting garbage
Compiler: Compiled 1 635 to 727 computations (55.5% saved)

end0.0ms (0.0%)

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

start0.0ms (0.0%)

analyze1.6s (17.4%)

sample3.5s (37.7%)

preprocess41.0ms (0.5%)

sample0.0ms (0.0%)

series99.0ms (1.1%)

rewrite163.0ms (1.8%)

eval85.0ms (0.9%)

prune38.0ms (0.4%)

sample0.0ms (0.0%)

series175.0ms (1.9%)

rewrite233.0ms (2.5%)

eval179.0ms (1.9%)

prune68.0ms (0.7%)

sample1.0ms (0.0%)

series220.0ms (2.4%)

rewrite298.0ms (3.2%)

eval195.0ms (2.1%)

prune73.0ms (0.8%)

sample0.0ms (0.0%)

series116.0ms (1.3%)

rewrite215.0ms (2.3%)

eval198.0ms (2.2%)

prune140.0ms (1.5%)

regimes1.2s (13.1%)

bsearch75.0ms (0.8%)

bsearch101.0ms (1.1%)

derivations93.0ms (1.0%)

preprocess105.0ms (1.1%)

end0.0ms (0.0%)

Profiling