Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze918.0ms (13.1%)

Memory

2.2MiB live, 255.8MiB allocated; 6ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 35 to 25 computations (28.6% saved)

sample2.1s (29.6%)

Memory

17.2MiB live, 569.4MiB allocated; 46ms collecting garbage

Samples

1.7s

8 256×

valid

Precisions

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

ival-sin: 590.0ms (41.5% of total)

ival-cos: 430.0ms (30.3% of total)

ival-mult!: 187.0ms (13.2% of total)

ival-asin: 100.0ms (7% of total)

ival-atan2: 62.0ms (4.4% of total)

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

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

adjust: 2.0ms (0.1% of total)

Bogosity

explain294.0ms (4.2%)

Memory

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

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
8	1	(8.646122548833429e-52 6.415361641152226e+95 -1.4188663729759146e+38 1.9706562762070697e-209 -4.400497475997203e-303)	5	(3.7237291729727544e+69 -2.202061357909216e+273 -1.8348584142408844e+247 -9.403085963523585e+191 4.2710879113494867e-103)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))`
1	0	-	1	(-1.7067769933382803e+53 -1.5367814208350445e+73 -1.4857937199867341e-183 1.8347127579676636e+239 -1.0144766302593041e-43)	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`
0	0	-	0	-	`(cos.f64 theta)`
0	0	-	0	-	`theta`
0	0	-	0	-	`(sin.f64 theta)`
0	0	-	0	-	`(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))`
0	0	-	0	-	`(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))`
0	0	-	0	-	`delta`
0	0	-	0	-	`(sin.f64 phi1)`
0	0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 delta))`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
0	0	-	0	-	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`
0	0	-	0	-	`(*.f64 (sin.f64 theta) (sin.f64 delta))`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 delta))`
0	0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))`
0	0	-	0	-	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
0	0	-	0	-	`(sin.f64 delta)`
0	0	-	0	-	`(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))`
0	0	-	0	-	`(cos.f64 delta)`
0	0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`-.f64`	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))`	cancellation	1	3

Confusion

	Predicted +	Predicted -
+	1	1
-	0	254

Precision

1.0

Recall

0.5

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	1	0
-	0	5	249

Precision?

0.2857142857142857

Recall?

1.0

Freqs

test

number	freq
0	255
1	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

117.0ms

512×

valid

Compiler

Compiled 431 to 73 computations (83.1% saved)

Precisions

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

ival-sin: 36.0ms (39.7% of total)

ival-cos: 28.0ms (30.9% of total)

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

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

ival-atan2: 5.0ms (5.5% of total)

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

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

adjust: 0.0ms (0% of total)

preprocess180.0ms (2.6%)

Memory

0.9MiB live, 37.6MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

Stop Event

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

Calls

Call 1

Inputs

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

Outputs

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

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

Symmetry

(abs phi2)

Compiler

Compiled 33 to 23 computations (30.3% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

Status

Accuracy

Program

▶

99.7%

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

Compiler

Compiled 33 to 23 computations (30.3% saved)

series49.0ms (0.7%)

Memory

1.4MiB live, 20.3MiB allocated; 2ms collecting garbage

Counts

22 → 146

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
5.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	theta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	theta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))

rewrite190.0ms (2.7%)

Memory

7.0MiB live, 57.9MiB allocated; 11ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	636	4513
0	666	4390
1	4002	4276
0	8786	4041

Stop Event

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

Counts

168 → 264

Calls

Call 1

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

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

eval44.0ms (0.6%)

Memory: 0.6MiB live, 30.8MiB allocated; 4ms collecting garbage
Compiler: Compiled 12 738 to 1 974 computations (84.5% saved)

prune25.0ms (0.4%)

Memory

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

Pruning

21 alts after pruning (21 fresh and 0 done)

	Pruned	Kept	Total
New	266	21	287
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	267	21	288

Accuracy

99.9%

Counts

288 → 21

Alt Table

Click to see full alt table

Status	Accuracy	Program
	67.2%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	49.9%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
▶	91.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) phi1))) #s(literal 2 binary64)))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)))))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	90.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	93.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	93.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)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	85.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	81.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	78.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	90.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	28.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
▶	72.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 2 028 to 1 204 computations (40.6% saved)

series85.0ms (1.2%)

Memory

-6.7MiB live, 45.3MiB allocated; 7ms collecting garbage

Counts

45 → 299

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
11.0ms	theta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) (* (sin phi1) (cos delta)) (sin phi1) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (* phi1 (cos theta)) (sin delta)) (* phi1 (cos theta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1) 2)
10.0ms	delta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) (* (sin phi1) (cos delta)) (sin phi1) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (* phi1 (cos theta)) (sin delta)) (* phi1 (cos theta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1) 2)
8.0ms	phi1	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) (* (sin phi1) (cos delta)) (sin phi1) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (* phi1 (cos theta)) (sin delta)) (* phi1 (cos theta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1) 2)
7.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) (* (sin phi1) (cos delta)) (sin phi1) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (* phi1 (cos theta)) (sin delta)) (* phi1 (cos theta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1) 2)
7.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)))) (cos delta) (+ (* (* (sin phi1) (cos delta)) (sin phi1)) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1))) (* (sin phi1) (cos delta)) (sin phi1) (* (* (cos theta) (* (cos phi1) (sin delta))) (sin phi1)) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (* phi1 (cos theta)) (sin delta)) (* phi1 (cos theta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1) 2)

rewrite218.0ms (3.1%)

Memory

8.9MiB live, 73.3MiB allocated; 11ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1130	13362
0	1218	12070
1	7135	12070
0	8088	11721

Stop Event

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

Counts

344 → 509

Calls

Call 1

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

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

eval128.0ms (1.8%)

Memory: 1.8MiB live, 91.6MiB allocated; 13ms collecting garbage
Compiler: Compiled 48 347 to 4 517 computations (90.7% saved)

prune46.0ms (0.7%)

Memory

-5.7MiB live, 50.5MiB allocated; 1ms collecting garbage

Pruning

31 alts after pruning (29 fresh and 2 done)

	Pruned	Kept	Total
New	859	24	883
Fresh	11	5	16
Picked	3	2	5
Done	0	0	0
Total	873	31	904

Accuracy

99.9%

Counts

904 → 31

Alt Table

Click to see full alt table

Status	Accuracy	Program
	55.7%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))))
	39.4%	(/.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) #s(approx (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))))))
	73.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 #s(approx (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) #s(approx (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta))) (.f64 (cos.f64 delta) #s(approx (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (.f64 (.f64 (cos.f64 theta) phi1) (sin.f64 delta)))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
	86.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta))))) phi1))) #s(literal 2 binary64)))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 #s(approx (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (sin.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) phi1))) #s(literal 2 binary64)))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	94.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	93.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	94.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)))))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	90.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	93.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	79.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) #s(approx (sin delta) delta))))))
	86.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 #s(approx ( phi1 (cos theta)) phi1) (sin.f64 delta))))))
	75.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	78.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	81.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	90.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	81.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	73.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	89.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	84.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	28.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
	28.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
✓	72.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 3 939 to 1 924 computations (51.2% saved)

series77.0ms (1.1%)

Memory

3.7MiB live, 46.6MiB allocated; 8ms collecting garbage

Counts

50 → 304

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
11.0ms	theta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (sin phi1) (cos delta)) (sin phi1) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos theta) (sin delta)) (cos theta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (* phi1 (cos theta)) (sin delta)) (* phi1 (cos theta)) (sin delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (/ (PI) 2) (PI) 2 (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* (cos phi1) (sin delta)))
7.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (sin phi1) (cos delta)) (sin phi1) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos theta) (sin delta)) (cos theta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (* phi1 (cos theta)) (sin delta)) (* phi1 (cos theta)) (sin delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (/ (PI) 2) (PI) 2 (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* (cos phi1) (sin delta)))
7.0ms	theta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (sin phi1) (cos delta)) (sin phi1) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos theta) (sin delta)) (cos theta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (* phi1 (cos theta)) (sin delta)) (* phi1 (cos theta)) (sin delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (/ (PI) 2) (PI) 2 (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* (cos phi1) (sin delta)))
7.0ms	theta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (sin phi1) (cos delta)) (sin phi1) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos theta) (sin delta)) (cos theta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (* phi1 (cos theta)) (sin delta)) (* phi1 (cos theta)) (sin delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (/ (PI) 2) (PI) 2 (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* (cos phi1) (sin delta)))
6.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (sin phi1) (cos delta)) (sin phi1) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos theta) (sin delta)) (cos theta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (* phi1 (cos theta)) (sin delta)) (* phi1 (cos theta)) (sin delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (sin (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (- (/ (PI) 2) (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (/ (PI) 2) (PI) 2 (acos (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* (cos phi1) (sin delta)))

rewrite212.0ms (3%)

Memory

4.1MiB live, 69.1MiB allocated; 10ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1184	12884
0	1273	11774
1	7551	11774
0	8094	11416

Stop Event

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

Counts

354 → 487

Calls

Call 1

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

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

eval111.0ms (1.6%)

Memory: -0.1MiB live, 81.4MiB allocated; 11ms collecting garbage
Compiler: Compiled 40 695 to 3 576 computations (91.2% saved)

prune62.0ms (0.9%)

Memory

-5.3MiB live, 58.7MiB allocated; 1ms collecting garbage

Pruning

50 alts after pruning (46 fresh and 4 done)

	Pruned	Kept	Total
New	785	30	815
Fresh	8	16	24
Picked	3	2	5
Done	0	2	2
Total	796	50	846

Accuracy

99.9%

Counts

846 → 50

Alt Table

Click to see full alt table

Status	Accuracy	Program
	59.4%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (cos.f64 delta))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (cos.f64 delta)))))
	42.7%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (cos.f64 delta))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) #s(approx (- (cos delta) ( (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (cos.f64 delta)))))))
	74.8%	(+.f64 lambda1 (atan2.f64 (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	89.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))))))))
	58.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 (.f64 (cos.f64 theta) phi1) #s(approx (sin delta) delta))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 #s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 (.f64 (cos.f64 theta) phi1) #s(approx (sin delta) delta))) #s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 (.f64 (cos.f64 theta) phi1) #s(approx (sin delta) delta))) (.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 (.f64 (cos.f64 theta) phi1) #s(approx (sin delta) delta)))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))))) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (-.f64 (.f64 (cos.f64 delta) (cos.f64 delta)) (.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))) (.f64 (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
	94.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 #s(approx ( (cos theta) (* (cos phi1) (sin delta))) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 phi1)))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
	86.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) phi1)) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta))))) phi1))) #s(literal 2 binary64)))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 #s(approx (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (sin.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) phi1))) #s(literal 2 binary64)))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	94.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	93.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
✓	94.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	93.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
▶	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)))))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	90.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
	93.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	81.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
	90.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos.f64 delta)) (.f64 (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
	81.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	78.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	81.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	81.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	90.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	78.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(approx (cos delta) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))))
	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(approx (cos delta) #s(literal 1 binary64)))))
	81.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (acos.f64 (fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (sin.f64 phi1))))))
	81.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	69.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) #s(approx (sin delta) delta))))))
	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	75.8%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (sin theta) (sin delta)) (.f64 (sin.f64 theta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	89.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	88.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	89.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	84.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	28.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))
	28.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
✓	72.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 5 444 to 2 986 computations (45.2% saved)

series144.0ms (2.1%)

Memory

0.9MiB live, 72.5MiB allocated; 7ms collecting garbage

Counts

55 → 347

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (cos delta)) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (+ (* -1 (cos delta)) (* phi1 (- (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* -2 (pow (cos delta) 2)) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (pow (cos delta) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (/ (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta))))) (cos delta)) (/ (* (cos theta) (* (sin delta) (- (* -1 (cos delta)) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (cos delta)))))))) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))))) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (* -1 (pow (cos delta) 3)))) (pow (cos delta) 3))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (+ (* -1 (* phi1 (* (pow (cos theta) 3) (pow (sin delta) 3)))) (* -1 (pow (cos delta) 3))))) (pow (cos delta) 3))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (+ (* -1 (pow (cos delta) 3)) (* phi1 (- (* phi1 (+ (* 1/3 (pow (cos delta) 3)) (+ (* 2 (pow (cos delta) 3)) (* (cos delta) (+ (* 2/3 (pow (cos delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (pow (cos delta) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (* -1 (pow (cos delta) 3)))) (pow (cos delta) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (+ (* -1 (pow (cos delta) 3)) (* (pow phi1 2) (+ (* 1/3 (pow (cos delta) 3)) (+ (* 2 (pow (cos delta) 3)) (* (cos delta) (+ (* 2/3 (pow (cos delta) 2)) (pow (cos delta) 2))))))))) (pow (cos delta) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (+ (* -1 (pow (cos delta) 3)) (* (pow phi1 2) (+ (* 1/3 (pow (cos delta) 3)) (+ (* 2 (pow (cos delta) 3)) (+ (* (cos delta) (+ (* 2/3 (pow (cos delta) 2)) (pow (cos delta) 2))) (* (pow phi1 2) (+ (* -1 (* (cos delta) (+ (* 2/3 (pow (cos delta) 2)) (pow (cos delta) 2)))) (+ (* -2/3 (pow (cos delta) 3)) (+ (* -2/45 (pow (cos delta) 3)) (* (cos delta) (+ (* -2/3 (pow (cos delta) 2)) (* -4/45 (pow (cos delta) 2))))))))))))))) (pow (cos delta) 3))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (cos delta))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* -1/3 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* 2/45 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (cos delta))) (* 2/45 (cos delta))))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (cos delta))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* -1/6 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* 1/120 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* -1/2 (* (pow (cos theta) 3) (pow (sin delta) 3))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* -1/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* (pow phi1 2) (+ (* 13/120 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 3/4 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* 7/8 (* (pow (cos theta) 3) (pow (sin delta) 3))))))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* -1/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* (pow phi1 2) (+ (* 13/120 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 3/4 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 7/8 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* (pow phi1 2) (+ (* -7/16 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* -61/240 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* -13/80 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* -41/3024 (* (pow (cos theta) 3) (pow (sin delta) 3)))))))))))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -2 (pow (cos delta) 2)) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -2 (pow (cos delta) 2)) (+ (* phi1 (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta))))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta)))))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos delta) (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta)))))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos delta) (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta))))) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta)))))) (+ (* 1/24 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* 1/120 (cos delta)) (+ (* 1/6 (cos delta)) (* 1/3 (cos delta))))))))))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos delta) (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta))))) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta)))))) (+ (* 1/24 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* (cos theta) (* (sin delta) (+ (* 1/120 (cos delta)) (+ (* 1/6 (cos delta)) (* 1/3 (cos delta)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* 1/120 (cos delta)) (+ (* 1/6 (cos delta)) (* 1/3 (cos delta))))))) (+ (* -1/720 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* 1/24 (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta)))))) (* (cos theta) (* (sin delta) (+ (* -1/18 (cos delta)) (+ (* -2/45 (cos delta)) (+ (* -1/120 (cos delta)) (* -1/5040 (cos delta))))))))))))))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (+ (cos delta) (* -1/2 (* phi1 (- (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (* -1 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1/2 (* (pow phi1 2) (- (* -1/6 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/6 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* 1/2 (- (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (* -1 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/2 (* (pow phi1 2) (- (* 1/120 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1/120 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* 1/2 (- (* -1/6 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/6 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* 1/2 (- (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (* -1 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- 1 (pow (sin phi1) 2)) #s(hole binary64 1))
#s(approx (- 1 (pow (sin phi1) 2)) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (- 1 (pow (sin phi1) 2)) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (- 1 (pow (sin phi1) 2)) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (pow phi1 2) (cos delta))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* -1/3 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* 2/45 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (cos delta))) (* 2/45 (cos delta))))))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3)))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (* (cos delta) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- 1 (pow (sin phi1) 2)) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (cos delta) (pow (sin phi1) 2))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1))) (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1))) (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1)))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- (cos delta) (* 1/2 (- (cos (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1))) (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (sin delta) #s(hole binary64 delta))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* -1/6 (pow delta 2))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))))
#s(approx delta #s(hole binary64 delta))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))))))) (- 1 (pow (sin phi1) 2))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))) (- 1 (pow (sin phi1) 2)))))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (pow (- 1 (pow (sin phi1) 2)) 3)))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (* delta (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))))) (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2)))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (* delta (- (* delta (+ (* 2 (* (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2) (- 1 (pow (sin phi1) 2)))) (+ (* (+ (* 2 (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2)) (- 1 (pow (sin phi1) 2))) (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))))) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (pow (- 1 (pow (sin phi1) 2)) 3)))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (* (pow delta 2) (+ (* 2 (* (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2) (- 1 (pow (sin phi1) 2)))) (+ (* (+ (* 2 (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2)) (- 1 (pow (sin phi1) 2))) (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2)))))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (* (pow delta 2) (+ (* 2 (* (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2) (- 1 (pow (sin phi1) 2)))) (+ (* (+ (* 2 (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2)) (- 1 (pow (sin phi1) 2))) (+ (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2)) (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2))))) (+ (* -1 (* (+ 1/720 (* -1/720 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (+ (* 2 (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2)))) (* (+ (* -2 (* (+ 1/720 (* -1/720 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (- 1/24 (* 1/24 (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 2)))))))))))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (pow (sin phi1) 2)))) (+ 1/2 (* -1/2 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (pow (sin phi1) 2)))))) (* 1/24 (pow (sin phi1) 2)))) (+ 1/2 (* -1/2 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (cos delta) #s(hole binary64 1))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow delta 2) (pow (sin phi1) 2))) (pow (sin phi1) 2))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* 1/24 (* (pow delta 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (pow (sin phi1) 2))) (* 1/24 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow delta 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow delta 3) (+ (* -1/2 (* (pow delta 2) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))))) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))) (* 13/120 (* (pow delta 2) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))))))) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))) (* (pow delta 2) (+ (* -41/3024 (* (pow delta 2) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))))) (* 13/120 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))))))) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (pow (- 1 (pow (sin phi1) 2)) 2)))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2)))))) (pow (- 1 (pow (sin phi1) 2)) 2))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))))) (pow (- 1 (pow (sin phi1) 2)) 2))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (+ (* delta (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))))) (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))))) (pow (- 1 (pow (sin phi1) 2)) 2))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* delta (+ (* delta (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2)))))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* delta (+ (* delta (+ (* delta (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2)))))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* delta (+ (* delta (+ (* delta (+ (* -1/3 (* delta (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2)))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))) (* (pow delta 2) (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))) (* (pow delta 2) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))) (* (pow delta 2) (* (cos phi1) (* (cos theta) (+ (* 1/120 (* (sin phi1) (- 1 (pow (sin phi1) 2)))) (+ (* 1/6 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (sin phi1) (- 1/24 (* 1/24 (pow (sin phi1) 2)))))))))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))) (* (pow delta 2) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))) (* (pow delta 2) (+ (* (cos phi1) (* (cos theta) (+ (* 1/120 (* (sin phi1) (- 1 (pow (sin phi1) 2)))) (+ (* 1/6 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (sin phi1) (- 1/24 (* 1/24 (pow (sin phi1) 2)))))))) (* (pow delta 2) (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/720 (* -1/720 (pow (sin phi1) 2))))) (+ (* -1/6 (* (sin phi1) (- 1/24 (* 1/24 (pow (sin phi1) 2))))) (+ (* -1/120 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/5040 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- 1 (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (+ (* -1/2 (* (pow delta 2) (pow (sin phi1) 2))) (pow (sin phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* 1/24 (* (pow delta 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (pow (sin phi1) 2))) (* 1/24 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (sin theta) #s(hole binary64 theta))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* -1/6 (pow theta 2))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* 1/120 (pow theta 2)) 1/6))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/120 (* -1/5040 (pow theta 2)))) 1/6))))))
#s(approx theta #s(hole binary64 theta))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (/ (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (* (pow theta 2) (- (* -7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (+ (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (/ (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (* (pow theta 2) (- (+ (* -7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (* (pow theta 2) (- (* 61/240 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (+ (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (* -7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (+ (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2))))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))) (+ (/ (* (+ (* -2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))) (- (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))))) (+ (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (/ (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (- (+ (* 3/2 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3)) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -7/8 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (* -3/2 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3)) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* 61/240 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (* 7/8 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))) (* -3/2 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3)) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))) (* 7/8 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))) (* (pow theta 2) (+ (* -61/240 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (* 7/8 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))))) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (sin delta)))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (cos theta) #s(hole binary64 1))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* -1/2 (pow theta 2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* 1/24 (pow theta 2)) 1/2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/24 (* -1/720 (pow theta 2)))) 1/2)))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* (pow theta 2) (+ (* -2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))))))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))))))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* (pow theta 2) (+ (* -2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))))))))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))
#s(approx (cos theta) #s(hole binary64 (cos theta)))

Calls

15 calls:

Time	Variable		Point	Expression
22.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (sin phi1) (cos delta)) (sin phi1) 3 (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (sin delta) (cos theta)) (cos phi1)) (* (sin delta) (cos theta)) (cos theta) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (- 1 (pow (sin phi1) 2)) 1 (pow (sin phi1) 2) 2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (cos phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos theta) (sin delta)))
14.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (sin phi1) (cos delta)) (sin phi1) 3 (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (sin delta) (cos theta)) (cos phi1)) (* (sin delta) (cos theta)) (cos theta) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (- 1 (pow (sin phi1) 2)) 1 (pow (sin phi1) 2) 2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (cos phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos theta) (sin delta)))
13.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (sin phi1) (cos delta)) (sin phi1) 3 (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (sin delta) (cos theta)) (cos phi1)) (* (sin delta) (cos theta)) (cos theta) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (- 1 (pow (sin phi1) 2)) 1 (pow (sin phi1) 2) 2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (cos phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos theta) (sin delta)))
12.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (sin phi1) (cos delta)) (sin phi1) 3 (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (sin delta) (cos theta)) (cos phi1)) (* (sin delta) (cos theta)) (cos theta) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (- 1 (pow (sin phi1) 2)) 1 (pow (sin phi1) 2) 2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (cos phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos theta) (sin delta)))
12.0ms	theta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (sin phi1) (cos delta)) (sin phi1) 3 (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (sin delta) (cos theta)) (cos phi1)) (* (sin delta) (cos theta)) (cos theta) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (- 1 (pow (sin phi1) 2)) 1 (pow (sin phi1) 2) 2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (cos phi1) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (sin phi1) (cos delta)) (sin phi1)) (* (pow (sin phi1) 2) (cos delta)) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) (* (* (cos theta) (sin delta)) (cos phi1)) (* (cos theta) (sin delta)))

rewrite221.0ms (3.2%)

Memory

4.1MiB live, 97.1MiB allocated; 18ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1685	23591
0	1782	21925
0	8300	21261

Stop Event

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

Counts

402 → 464

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)))))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))))))
(-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64)))
(pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64))
(-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))
(cos.f64 delta)
(.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(sin.f64 phi1)
#s(literal 3 binary64)
(pow.f64 (.f64 (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))
(.f64 (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))
(.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(cos.f64 theta)
(fma.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)))))
(fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))))
(.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(literal 1 binary64)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
#s(literal 2 binary64)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))
(.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(fma.f64 #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
#s(approx (* (cos theta) (sin delta)) (sin.f64 delta))
#s(approx (cos phi1) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1))))
(-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))
(.f64 (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1))
(.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (cos.f64 theta) (sin.f64 delta))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (cos delta)) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (+ (* -1 (cos delta)) (* phi1 (- (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* -2 (pow (cos delta) 2)) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (pow (cos delta) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (/ (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta))))) (cos delta)) (/ (* (cos theta) (* (sin delta) (- (* -1 (cos delta)) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (cos delta)))))))) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))))) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (* -1 (pow (cos delta) 3)))) (pow (cos delta) 3))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (+ (* -1 (* phi1 (* (pow (cos theta) 3) (pow (sin delta) 3)))) (* -1 (pow (cos delta) 3))))) (pow (cos delta) 3))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (+ (* -1 (pow (cos delta) 3)) (* phi1 (- (* phi1 (+ (* 1/3 (pow (cos delta) 3)) (+ (* 2 (pow (cos delta) 3)) (* (cos delta) (+ (* 2/3 (pow (cos delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (pow (cos delta) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (* -1 (pow (cos delta) 3)))) (pow (cos delta) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (+ (* -1 (pow (cos delta) 3)) (* (pow phi1 2) (+ (* 1/3 (pow (cos delta) 3)) (+ (* 2 (pow (cos delta) 3)) (* (cos delta) (+ (* 2/3 (pow (cos delta) 2)) (pow (cos delta) 2))))))))) (pow (cos delta) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -2 (pow (cos delta) 3)) (+ (* -1 (pow (cos delta) 3)) (* (pow phi1 2) (+ (* 1/3 (pow (cos delta) 3)) (+ (* 2 (pow (cos delta) 3)) (+ (* (cos delta) (+ (* 2/3 (pow (cos delta) 2)) (pow (cos delta) 2))) (* (pow phi1 2) (+ (* -1 (* (cos delta) (+ (* 2/3 (pow (cos delta) 2)) (pow (cos delta) 2)))) (+ (* -2/3 (pow (cos delta) 3)) (+ (* -2/45 (pow (cos delta) 3)) (* (cos delta) (+ (* -2/3 (pow (cos delta) 2)) (* -4/45 (pow (cos delta) 2))))))))))))))) (pow (cos delta) 3))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (cos delta))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* -1/3 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* 2/45 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (cos delta))) (* 2/45 (cos delta))))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (cos delta))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* -1/6 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* 1/120 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* -1/2 (* (pow (cos theta) 3) (pow (sin delta) 3))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* -1/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* (pow phi1 2) (+ (* 13/120 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 3/4 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* 7/8 (* (pow (cos theta) 3) (pow (sin delta) 3))))))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* -1/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* (pow phi1 2) (+ (* 13/120 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 3/4 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 7/8 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* (pow phi1 2) (+ (* -7/16 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* -61/240 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* -13/80 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* -41/3024 (* (pow (cos theta) 3) (pow (sin delta) 3)))))))))))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -2 (pow (cos delta) 2)) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -2 (pow (cos delta) 2)) (+ (* phi1 (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta))))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta)))))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos delta) (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta)))))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos delta) (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta))))) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta)))))) (+ (* 1/24 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* 1/120 (cos delta)) (+ (* 1/6 (cos delta)) (* 1/3 (cos delta))))))))))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos delta) (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta))))) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta)))))) (+ (* 1/24 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* (cos theta) (* (sin delta) (+ (* 1/120 (cos delta)) (+ (* 1/6 (cos delta)) (* 1/3 (cos delta)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* 1/120 (cos delta)) (+ (* 1/6 (cos delta)) (* 1/3 (cos delta))))))) (+ (* -1/720 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* 1/24 (* (cos theta) (* (sin delta) (+ (* -1 (cos delta)) (* -1/6 (cos delta)))))) (* (cos theta) (* (sin delta) (+ (* -1/18 (cos delta)) (+ (* -2/45 (cos delta)) (+ (* -1/120 (cos delta)) (* -1/5040 (cos delta))))))))))))))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (+ (cos delta) (* -1/2 (* phi1 (- (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (* -1 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1/2 (* (pow phi1 2) (- (* -1/6 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/6 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* 1/2 (- (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (* -1 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/2 (* (pow phi1 2) (- (* 1/120 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1/120 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (* 1/2 (- (* -1/6 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/6 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))) (* 1/2 (- (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (* -1 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- 1 (pow (sin phi1) 2)) #s(hole binary64 1))
#s(approx (- 1 (pow (sin phi1) 2)) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (- 1 (pow (sin phi1) 2)) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (- 1 (pow (sin phi1) 2)) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (pow phi1 2) (cos delta))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* -1/3 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* 2/45 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (cos delta))) (* 2/45 (cos delta))))))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3)))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (* (cos delta) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (+ (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- (cos delta) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- 1 (pow (sin phi1) 2)) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (cos delta) (pow (sin phi1) 2))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1))) (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 1/2 (- (cos (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1))) (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1)))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- (cos delta) (* 1/2 (- (cos (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1))) (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* -1 phi1))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (sin delta) #s(hole binary64 delta))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* -1/6 (pow delta 2))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))))
#s(approx delta #s(hole binary64 delta))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))))))) (- 1 (pow (sin phi1) 2))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))) (- 1 (pow (sin phi1) 2)))))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (pow (- 1 (pow (sin phi1) 2)) 3)))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (* delta (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))))) (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2)))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (* delta (- (* delta (+ (* 2 (* (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2) (- 1 (pow (sin phi1) 2)))) (+ (* (+ (* 2 (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2)) (- 1 (pow (sin phi1) 2))) (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))))) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (pow (- 1 (pow (sin phi1) 2)) 3)))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (* (pow delta 2) (+ (* 2 (* (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2) (- 1 (pow (sin phi1) 2)))) (+ (* (+ (* 2 (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2)) (- 1 (pow (sin phi1) 2))) (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2)))))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) #s(hole binary64 (+ (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (* (pow delta 2) (+ (* 2 (* (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2) (- 1 (pow (sin phi1) 2)))) (+ (* (+ (* 2 (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2)) (- 1 (pow (sin phi1) 2))) (+ (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2)) (* (pow delta 2) (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2))))) (+ (* -1 (* (+ 1/720 (* -1/720 (pow (sin phi1) 2))) (pow (- 1 (pow (sin phi1) 2)) 2))) (+ (* -1 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (+ (* 2 (* (- 1/24 (* 1/24 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (pow (+ 1/2 (* -1/2 (pow (sin phi1) 2))) 2)))) (* (+ (* -2 (* (+ 1/720 (* -1/720 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (- 1/24 (* 1/24 (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 2)))))))))))))) (pow (- 1 (pow (sin phi1) 2)) 3))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (pow (sin phi1) 2)))) (+ 1/2 (* -1/2 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (pow (sin phi1) 2)))))) (* 1/24 (pow (sin phi1) 2)))) (+ 1/2 (* -1/2 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (cos delta) #s(hole binary64 1))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow delta 2) (pow (sin phi1) 2))) (pow (sin phi1) 2))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* 1/24 (* (pow delta 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2))))
#s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (pow (sin phi1) 2))) (* 1/24 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow delta 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow delta 3) (+ (* -1/2 (* (pow delta 2) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))))) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))) (* 13/120 (* (pow delta 2) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))))))) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))) (* (pow delta 2) (+ (* -41/3024 (* (pow delta 2) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3))))) (* 13/120 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))))))) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin phi1) 3)))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (pow (- 1 (pow (sin phi1) 2)) 2)))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2)))))) (pow (- 1 (pow (sin phi1) 2)) 2))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))))) (pow (- 1 (pow (sin phi1) 2)) 2))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -2 (* (+ 1/2 (* -1/2 (pow (sin phi1) 2))) (- 1 (pow (sin phi1) 2)))) (+ (* delta (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))))) (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))))) (pow (- 1 (pow (sin phi1) 2)) 2))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* delta (+ (* delta (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2)))))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* delta (+ (* delta (+ (* delta (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2)))))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (* delta (+ (* delta (+ (* delta (+ (* -1/3 (* delta (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2)))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))) (* (pow delta 2) (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))) (* (pow delta 2) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))) (* (pow delta 2) (* (cos phi1) (* (cos theta) (+ (* 1/120 (* (sin phi1) (- 1 (pow (sin phi1) 2)))) (+ (* 1/6 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (sin phi1) (- 1/24 (* 1/24 (pow (sin phi1) 2)))))))))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 2))))) (* (pow delta 2) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/6 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))) (* (pow delta 2) (+ (* (cos phi1) (* (cos theta) (+ (* 1/120 (* (sin phi1) (- 1 (pow (sin phi1) 2)))) (+ (* 1/6 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (sin phi1) (- 1/24 (* 1/24 (pow (sin phi1) 2)))))))) (* (pow delta 2) (* (cos phi1) (* (cos theta) (+ (* -1 (* (sin phi1) (+ 1/720 (* -1/720 (pow (sin phi1) 2))))) (+ (* -1/6 (* (sin phi1) (- 1/24 (* 1/24 (pow (sin phi1) 2))))) (+ (* -1/120 (* (sin phi1) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1/5040 (* (sin phi1) (- 1 (pow (sin phi1) 2))))))))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- 1 (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* 1/2 (- (cos (- (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) phi1)) (cos (+ phi1 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (cos theta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (+ (* -1/2 (* (pow delta 2) (pow (sin phi1) 2))) (pow (sin phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* 1/24 (* (pow delta 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (pow (sin phi1) 2))) (* 1/24 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (sin theta) #s(hole binary64 theta))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* -1/6 (pow theta 2))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* 1/120 (pow theta 2)) 1/6))))))
#s(approx (sin theta) #s(hole binary64 (* theta (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/120 (* -1/5040 (pow theta 2)))) 1/6))))))
#s(approx theta #s(hole binary64 theta))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (/ (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (/ (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (* (pow theta 2) (- (* -7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (+ (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (/ (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))))
#s(approx (/ (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (* (pow theta 2) (- (+ (* -7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (* (pow theta 2) (- (* 61/240 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (+ (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (* -7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (+ (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2))))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))) (+ (/ (* (+ (* -2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))) (- (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))))) (+ (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (* 3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))))) (/ (* (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))) 2)))) (/ (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))) (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (- (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (- (+ (* 3/2 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3)) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -7/8 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (* -3/2 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3)) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) 3) (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* 61/240 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (* 7/8 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))) (* -3/2 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 3)) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))) (* 7/8 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))) (* (pow theta 2) (+ (* -61/240 (* (pow theta 2) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))) (* 7/8 (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3)))))))) (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (pow (sin phi1) 3))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (sin delta) (cos theta)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (sin delta)))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (sin delta) (cos theta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (cos theta) #s(hole binary64 1))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* -1/2 (pow theta 2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* 1/24 (pow theta 2)) 1/2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/24 (* -1/720 (pow theta 2)))) 1/2)))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2)))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))
#s(approx (+ (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1)))) (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* (pow theta 2) (+ (* -2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))))))))) (+ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))) (pow (- (cos delta) (* (cos delta) (pow (sin phi1) 2))) 2))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2))))))))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (* (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1)))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (+ (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* (pow theta 2) (+ (* -2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))) (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))))))))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (sin phi1) 2)))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))))))))
#s(approx (* (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (sin delta) (cos theta)) (cos phi1)) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2)))))))) (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (- (cos delta) (* (cos delta) (pow (sin phi1) 2))))))))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin phi1)))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1)) #s(hole binary64 (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (cos theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))
#s(approx (cos theta) #s(hole binary64 (cos theta)))

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

eval222.0ms (3.2%)

Memory: 9.6MiB live, 156.1MiB allocated; 25ms collecting garbage
Compiler: Compiled 129 685 to 6 218 computations (95.2% saved)

prune113.0ms (1.6%)

Memory

0.7MiB live, 106.4MiB allocated; 2ms collecting garbage

Pruning

65 alts after pruning (58 fresh and 7 done)

	Pruned	Kept	Total
New	1 241	31	1 272
Fresh	14	27	41
Picked	2	3	5
Done	0	4	4
Total	1 257	65	1 322

Accuracy

100.0%

Counts

1 322 → 65

Alt Table

Click to see full alt table

Status	Accuracy	Program
	58.0%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))))
	41.3%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))))))
	89.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	89.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (/.f64 (-.f64 (pow.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64)) (.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64)))))) (fma.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))) (/.f64 (+.f64 (pow.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 2 binary64)) (-.f64 (.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)))) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))))) (.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)))))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))))))))
	58.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 (.f64 (cos.f64 theta) phi1) #s(approx (sin delta) delta))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 #s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 (.f64 (cos.f64 theta) phi1) #s(approx (sin delta) delta))) #s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 (.f64 (cos.f64 theta) phi1) #s(approx (sin delta) delta))) (.f64 (cos.f64 delta) #s(approx ( (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 (.f64 (cos.f64 theta) phi1) #s(approx (sin delta) delta)))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	74.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (exp.f64 (.f64 (log.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))) #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 #s(approx ( (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(approx ( (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) (.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))))) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(approx ( (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))) #s(approx ( (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) (+.f64 (cos.f64 delta) #s(approx ( (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))))) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
✓	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
	94.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 #s(approx (* (* (cos theta) (sin delta)) (cos phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
	83.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 #s(approx (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (sin.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (cos.f64 (+.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) phi1))) #s(literal 2 binary64)))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	94.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	93.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
✓	94.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	93.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	93.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
✓	93.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)))))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	90.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
	93.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	81.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
	90.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (cos.f64 delta)) (.f64 (.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
	81.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	78.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 #s(literal 1 binary64) #s(approx (pow (sin phi1) 2) (.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/3 binary64) (.f64 phi1 phi1)))))))))
	69.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 #s(literal 1 binary64) #s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))))))
	81.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	90.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(approx (- 1 (pow (sin phi1) 2)) #s(literal 1 binary64)))))
	81.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	69.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) #s(approx (sin delta) delta))))))
	76.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	74.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	89.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	89.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) phi1)) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))))))
	80.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	88.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	76.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))))))
	77.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(approx (cos delta) #s(literal 1 binary64)))))
	72.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)))))))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	73.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 delta delta))))))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	75.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	89.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	89.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	84.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	77.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	75.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))))) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	76.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
	28.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (cos delta)) (sin phi1))) (* (* (* (cos theta) (sin delta)) (cos phi1)) (sin phi1))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
	28.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
✓	72.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 11 838 to 2 832 computations (76.1% saved)

regimes172.0ms (2.5%)

Memory

-0.7MiB live, 74.2MiB allocated; 5ms collecting garbage

Counts

107 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

25.0ms	delta
24.0ms	theta
24.0ms	lambda1
24.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)))))))))
24.0ms	phi2

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes159.0ms (2.3%)

Memory

5.1MiB live, 69.9MiB allocated; 5ms collecting garbage

Counts

100 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

23.0ms	theta
22.0ms	phi1
22.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)))))))))
22.0ms	delta
22.0ms	phi2

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes115.0ms (1.7%)

Memory

-4.0MiB live, 52.9MiB allocated; 2ms collecting garbage

Counts

72 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes107.0ms (1.5%)

Memory

-0.9MiB live, 49.1MiB allocated; 2ms collecting garbage

Counts

66 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes104.0ms (1.5%)

Memory

1.5MiB live, 48.6MiB allocated; 3ms collecting garbage

Counts

65 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes92.0ms (1.3%)

Memory

-5.6MiB live, 43.7MiB allocated; 1ms collecting garbage

Counts

57 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

13.0ms	phi1
13.0ms	phi2
13.0ms	theta
13.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)))))))))
13.0ms	lambda1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes75.0ms (1.1%)

Memory

-0.4MiB live, 35.4MiB allocated; 5ms collecting garbage

Counts

43 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes58.0ms (0.8%)

Memory

-1.9MiB live, 30.2MiB allocated; 1ms collecting garbage

Counts

34 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
90.4%	1	`delta`
90.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))))))))`
90.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)))))))))`
90.4%	1	`lambda1`
92.5%	2	`phi1`
90.4%	1	`phi2`
90.4%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes21.0ms (0.3%)

Memory

4.8MiB live, 12.4MiB allocated; 0ms collecting garbage

Counts

27 → 1

Calls

Call 1

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

Outputs

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

Calls

3 calls:

7.0ms

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

6.0ms

phi1

6.0ms

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

Results

Accuracy	Segments	Branch
90.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))))))))`
90.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)))))))))`
90.4%	1	`phi1`

Compiler

Compiled 65 to 50 computations (23.1% saved)

regimes37.0ms (0.5%)

Memory

-2.5MiB live, 21.8MiB allocated; 1ms collecting garbage

Counts

20 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes19.0ms (0.3%)

Memory

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

Counts

8 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
77.9%	1	`phi2`
83.1%	3	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
82.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)))))))))`
77.9%	1	`lambda1`
79.5%	2	`phi1`
83.9%	3	`delta`
84.6%	3	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes2.0ms (0%)

Memory

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

Counts

5 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

2.0ms

theta

Results

Accuracy	Segments	Branch
84.5%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes2.0ms (0%)

Memory

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

Counts

4 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

2.0ms

theta

Results

Accuracy	Segments	Branch
84.5%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes2.0ms (0%)

Memory

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

Counts

3 → 3

Calls

Call 1

Inputs

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

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

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

Outputs

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

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

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

Calls

1 calls:

1.0ms

theta

Results

Accuracy	Segments	Branch
84.0%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes6.0ms (0.1%)

Memory

-2.1MiB live, 6.3MiB allocated; 0ms collecting garbage

Counts

2 → 3

Calls

Call 1

Inputs

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

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

Outputs

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

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

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

Calls

4 calls:

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

Results

Accuracy	Segments	Branch
76.2%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
80.2%	3	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
81.4%	3	`delta`
81.0%	3	`theta`

Compiler

Compiled 66 to 55 computations (16.7% saved)

regimes7.0ms (0.1%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
0.0ms	-0.0008913934506029625	-0.0008770297657641603

Compiler

Compiled 36 to 31 computations (13.9% saved)

bsearch57.0ms (0.8%)

Memory

-0.1MiB live, 15.1MiB allocated; 1ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
13.0ms	69959167919.58434	99609178722.27185
40.0ms	-849332.6954763916	-2.2515580733013413e-6

Samples

44.0ms

208×

valid

Compiler

Compiled 1 864 to 1 069 computations (42.7% saved)

Precisions

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

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

ival-cos: 11.0ms (29.9% of total)

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch10.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
5.0ms	69959167919.58434	99609178722.27185
5.0ms	-849332.6954763916	-2.2515580733013413e-6

Samples

6.0ms

32×

valid

Compiler

Compiled 1 760 to 991 computations (43.7% saved)

Precisions

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

ival-cos: 2.0ms (37.1% of total)

ival-sin: 2.0ms (37.1% of total)

ival-mult!: 1.0ms (18.5% of total)

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

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

adjust: 0.0ms (0% of total)

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
0.0ms	69959167919.58434	99609178722.27185
1.0ms	-849332.6954763916	-2.2515580733013413e-6

Compiler

Compiled 1 700 to 951 computations (44.1% saved)

bsearch41.0ms (0.6%)

Memory

-4.7MiB live, 12.0MiB allocated; 0ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
36.0ms	1.8522750949703835e-37	3.2992657927606993e-23
1.0ms	-849332.6954763916	-2.2515580733013413e-6

Samples

30.0ms

160×

valid

Compiler

Compiled 2 596 to 1 431 computations (44.9% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch55.0ms (0.8%)

Memory

1.0MiB live, 16.0MiB allocated; 1ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
30.0ms	2.116719659523822e-52	6.9458098727986715e-44
20.0ms	-7.136563344941695e-97	-1.5845343934372922e-97

Samples

40.0ms

240×

valid

Compiler

Compiled 1 521 to 931 computations (38.8% saved)

Precisions

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

ival-sin: 13.0ms (39.4% of total)

ival-cos: 10.0ms (30.3% of total)

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

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

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

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

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

adjust: 0.0ms (0% of total)

simplify57.0ms (0.8%)

Memory

-1.5MiB live, 15.0MiB allocated; 1ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	170	1393
1	268	1393
2	431	1393
3	703	1393
4	1333	1393
5	4565	1393

Stop Event

1×	node limit

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 #s(approx (* (* (cos theta) (sin delta)) (cos phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(if (<=.f64 phi1 #s(literal -8116567392432203/9223372036854775808 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
(if (<=.f64 theta #s(literal -5764607523034235/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))))))) (if (<=.f64 theta #s(literal 70000000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))))) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))))
(if (<=.f64 theta #s(literal -5404319552844595/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))))))) (if (<=.f64 theta #s(literal 80000000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))))
(if (<=.f64 theta #s(literal -5404319552844595/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(approx (cos delta) #s(literal 1 binary64))))) (if (<=.f64 theta #s(literal 80000000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))))
(if (<=.f64 theta #s(literal -5404319552844595/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 5444517870735015/170141183460469231731687303715884105728 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))))
(if (<=.f64 delta #s(literal -5964170859805805/19239260838083241802870625048898248928261591440656956380834127638791856333738872368854622194768025215237611323392 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3554289843813805/26328072917139296674479506920917608079723773850137277813577744384 binary64)) #s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1)) (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (sin.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) #s(approx (* (* (sin phi1) (cos delta)) (sin phi1)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)))) (.f64 #s(approx (* (* (cos theta) (sin delta)) (cos phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(if (<=.f64 phi1 #s(literal -8116567392432203/9223372036854775808 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))
(if (<=.f64 theta #s(literal -5764607523034235/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))))))) (if (<=.f64 theta #s(literal 70000000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))))) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))))
(if (<=.f64 theta #s(literal -5404319552844595/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))))))) (if (<=.f64 theta #s(literal 80000000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))))
(if (<=.f64 theta #s(literal -5404319552844595/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) #s(approx (cos delta) #s(literal 1 binary64))))) (if (<=.f64 theta #s(literal 80000000000 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))))
(if (<=.f64 theta #s(literal -5404319552844595/18014398509481984 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 5444517870735015/170141183460469231731687303715884105728 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))))
(if (or (<=.f64 theta #s(literal -5404319552844595/18014398509481984 binary64)) (not (<=.f64 theta #s(literal 5444517870735015/170141183460469231731687303715884105728 binary64)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 theta) #s(approx (sin delta) delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -5964170859805805/19239260838083241802870625048898248928261591440656956380834127638791856333738872368854622194768025215237611323392 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 3554289843813805/26328072917139296674479506920917608079723773850137277813577744384 binary64)) #s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta))))))
(if (or (<=.f64 delta #s(literal -5964170859805805/19239260838083241802870625048898248928261591440656956380834127638791856333738872368854622194768025215237611323392 binary64)) (not (<=.f64 delta #s(literal 3554289843813805/26328072917139296674479506920917608079723773850137277813577744384 binary64)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin theta) theta) (sin.f64 delta))) #s(approx (- (cos delta) (/ (- (cos (- (asin (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1)) (cos (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) phi1))) 2)) (cos.f64 delta)))) #s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

derivations299.0ms (4.3%)

Memory

-0.0MiB live, 7.7MiB allocated; 1ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 393 to 174 computations (87.5% saved)

preprocess88.0ms (1.3%)

Memory: 6.7MiB live, 53.7MiB allocated; 4ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 3 032 to 458 computations (84.9% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze918.0ms (13.1%)

sample2.1s (29.6%)

explain294.0ms (4.2%)

preprocess180.0ms (2.6%)

eval0.0ms (0%)

prune1.0ms (0%)

series49.0ms (0.7%)

rewrite190.0ms (2.7%)

eval44.0ms (0.6%)

prune25.0ms (0.4%)

series85.0ms (1.2%)

rewrite218.0ms (3.1%)

eval128.0ms (1.8%)

prune46.0ms (0.7%)

series77.0ms (1.1%)

rewrite212.0ms (3%)

eval111.0ms (1.6%)

prune62.0ms (0.9%)

series144.0ms (2.1%)

rewrite221.0ms (3.2%)

eval222.0ms (3.2%)

prune113.0ms (1.6%)

regimes172.0ms (2.5%)

regimes159.0ms (2.3%)

regimes115.0ms (1.7%)

regimes107.0ms (1.5%)

regimes104.0ms (1.5%)

regimes92.0ms (1.3%)

regimes75.0ms (1.1%)

regimes58.0ms (0.8%)

regimes21.0ms (0.3%)

regimes37.0ms (0.5%)

regimes19.0ms (0.3%)

regimes2.0ms (0%)

regimes2.0ms (0%)

regimes2.0ms (0%)

regimes6.0ms (0.1%)

regimes7.0ms (0.1%)

bsearch1.0ms (0%)

bsearch57.0ms (0.8%)

bsearch10.0ms (0.1%)

bsearch2.0ms (0%)

bsearch41.0ms (0.6%)

bsearch55.0ms (0.8%)

simplify57.0ms (0.8%)

derivations299.0ms (4.3%)

preprocess88.0ms (1.3%)

end0.0ms (0%)

Profiling